Beginning Mac Programming

home *** CD-ROM | disk | FTP | other *** search
/ Beginning Mac Programming / Beginning Mac Programming.bin / pc / Open Me for REALbasic 3 / REALbasic 3.2 / Example Projects / Applications / durakSource / durakπ RB3 < prev
RealBasic Project | 2001-01-06 | 147.0 KB
open in:
MacOS 8.1 |
Win98 |
DOS
view JSON data |
view as text

This file was processed as: RealBasic Project (other/realBasicProject).
This format is not currently supported by dexvert.
Confidence	Program	Detection	Match Type	Support
`1%`	dexvert	RealBasic Project `(other/realBasicProject)`	magic	Unsupported
`100%`	file	data	default
`100%`	TrID	REALbasic/Xojo Project	default
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 52 62 42 46 00 00 00 01 | 00 00 00 00 00 00 00 00 |RbBF....|........|
|00000010| 00 00 00 14 42 6c 6f 6b | 50 72 6f 6a 00 00 00 00 |....Blok|Proj....|
|00000020| 00 00 00 00 00 00 0c 00 | 00 00 00 00 0e d7 33 4b |........|......3K|
|00000030| c9 24 e9 53 4f 50 53 70 | 53 74 72 6e 00 00 00 00 |.$.SOPSp|Strn....|
|00000040| 56 65 72 31 49 6e 74 20 | 00 00 00 01 56 65 72 32 |Ver1Int |....Ver2|
|00000050| 49 6e 74 20 00 00 00 00 | 56 65 72 33 49 6e 74 20 |Int ....|Ver3Int |
|00000060| 00 00 00 00 52 65 6c 73 | 49 6e 74 20 00 00 00 00 |....Rels|Int ....|
|00000070| 4e 6e 52 6c 49 6e 74 20 | 00 00 00 00 53 56 65 72 |NnRlInt |....SVer|
|00000080| 53 74 72 6e 00 00 00 00 | 4c 56 65 72 53 74 72 6e |Strn....|LVerStrn|
|00000090| 00 00 00 00 49 56 65 72 | 53 74 72 6e 00 00 00 00 |....IVer|Strn....|
|000000a0| 52 65 67 6e 49 6e 74 20 | 00 00 00 00 44 56 65 77 |RegnInt |....DVew|
|000000b0| 49 6e 74 20 00 00 00 01 | 44 4c 61 6e 49 6e 74 20 |Int ....|DLanInt |
|000000c0| 00 00 00 00 43 4c 61 6e | 49 6e 74 20 00 00 00 00 |....CLan|Int ....|
|000000d0| 54 61 72 67 49 6e 74 20 | 00 00 00 01 42 66 6c 67 |TargInt |....Bflg|
|000000e0| 49 6e 74 20 00 00 00 05 | 49 63 6f 6e 47 72 75 70 |Int ....|IconGrup|
|000000f0| 00 00 07 14 00 00 00 02 | 65 6c 65 6d 47 72 75 70 |........|elemGrup|
|00000100| 00 00 04 1c 00 00 00 03 | 74 79 70 65 49 6e 74 20 |........|typeInt |
|00000110| 69 63 6c 38 64 61 74 61 | 53 74 72 6e 00 00 04 00 |icl8data|Strn....|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 e0 |........|........|
|00000130| ac f8 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 fd |........|........|
|00000150| fe 56 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.V......|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 fc |........|........|
|00000170| fc f8 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 fc |........|........|
|00000190| ac 56 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.V......|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 fb |........|........|
|000001b0| ac 81 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 fb |........|........|
|000001d0| ac fc 2b 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..+.....|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 fa fb |........|........|
|000001f0| fb fc 56 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..V.....|........|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 f9 fa |........|........|
|00000210| fa fb fa 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 f8 81 fc |........|........|
|00000230| fb fc fb 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 fa fb fd |........|........|
|00000250| fc ac ac 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 fe f9 81 |........|........|
|00000270| 81 ac f9 81 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| 00 00 00 00 00 00 00 00 | 00 00 00 00 f9 ac fd f9 |........|........|
|00000290| 88 fd 56 81 56 00 00 00 | 00 00 00 00 00 00 00 00 |..V.V...|........|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 f9 f9 56 fa |........|......V.|
|000002b0| 56 f7 f7 f8 f9 00 00 00 | 00 00 00 00 00 00 00 00 |V.......|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 ac 81 fd 88 |........|........|
|000002d0| ac 88 fc fd f9 f9 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 ff ac fd b3 |........|........|
|000002f0| 88 b3 fb ac ff fa 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 ac fd 88 88 |........|........|
|00000310| 88 88 fd f9 81 f7 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 fc fb 88 88 |........|........|
|00000330| fd fb fb 81 ac fa 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 00 00 00 00 ff fc fb fa |........|........|
|00000350| fe ac b2 f9 81 b3 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000360| 00 00 00 00 00 00 00 00 | 00 00 00 00 fa ff fb fd |........|........|
|00000370| fb fc fb 88 fc 88 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000380| 00 00 00 00 00 00 2b 2b | 00 00 00 f7 f5 fc e0 fd |......++|........|
|00000390| ac fd fd fc 88 fd 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003a0| 00 00 00 f7 2b 00 f7 f8 | 00 00 00 56 f6 f5 fe ac |....+...|...V....|
|000003b0| fb ac f9 fd fd b3 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003c0| 00 f6 2b 2b f7 56 81 fb | fc fc fb fa f9 f8 56 e0 |..++.V..|......V.|
|000003d0| fd b2 fe 88 5d 88 56 00 | 00 00 00 f9 fc fc fb fc |....].V.|........|
|000003e0| 00 f8 56 56 fa fc ac fd | fd fe ac fd fc fd fb fc |..VV....|........|
|000003f0| ac fd fe fa ac ff f9 00 | 00 00 00 ff fd fd fd ff |........|........|
|00000400| 00 fb fc fb fd fd fc ac | 88 fb fd fc fe fc ac 81 |........|........|
|00000410| f9 f9 56 fa fa fa 81 f5 | 00 00 00 e0 fd ac fd fd |..V.....|........|
|00000420| 00 ff fe fd ac fb ac fc | fd fe fc fd ac fc ac e0 |........|........|
|00000430| e0 e0 e0 fe e0 fc fb f9 | 56 f8 f8 fe fe fd fe e0 |........|V.......|
|00000440| 00 fd e0 fe fc fd fd fd | fd 88 fd fd fd fe fe 88 |........|........|
|00000450| ac ac fd fc fd ac 81 fb | ac fc 88 81 ff fd fe fd |........|........|
|00000460| 00 56 fe fc f8 fd b3 ac | fd fd fd ac fc e0 fd fd |.V......|........|
|00000470| fe fe fe ac e0 fc 81 e0 | fd fd ac fc ac ac fc ac |........|........|
|00000480| 00 f9 fe f8 f7 81 b3 ac | fc fc ac 88 88 fd fd ac |........|........|
|00000490| fe fc ac e0 e0 f6 f5 fe | ff ac fd fc fd fd fd ac |........|........|
|000004a0| 00 f8 56 f6 f8 f5 fc df | ac ac 88 ac fd fe fd fd |..V.....|........|
|000004b0| fd fe fe fd 00 f5 00 00 | 88 e0 fd fd 88 fc fd 81 |........|........|
|000004c0| 00 f5 f6 f8 f9 56 ac fd | ac fd fd fd ac fe df fd |.....V..|........|
|000004d0| fe e0 ff f5 f6 f9 f9 56 | 07 fd fd ac e0 fd fd fa |.......V|........|
|000004e0| 00 fa f9 fb ac fd 87 fe | e0 fc fb df 81 fb fe f9 |........|........|
|000004f0| 81 fc f8 fb fe e0 fe ff | fe fd fd fe 81 fc ac 81 |........|........|
|00000500| 00 fe ac fd ff fa fb fa | 81 fc 81 f8 f5 fb ff fe |........|........|
|00000510| ac ac fd ff e0 fd ff fc | fe fd ac fd fb ac fc 56 |........|.......V|
|00000520| 45 6e 64 47 49 6e 74 20 | 00 00 00 03 65 6c 65 6d |EndGInt |....elem|
|00000530| 47 72 75 70 00 00 01 1c | 00 00 00 04 74 79 70 65 |Grup....|....type|
|00000540| 49 6e 74 20 69 63 73 38 | 64 61 74 61 53 74 72 6e |Int ics8|dataStrn|
|00000550| 00 00 01 00 00 00 00 00 | 00 00 00 f9 81 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 f8 81 00 00 00 |........|........|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 f8 fc 00 00 00 |........|........|
|00000580| 00 00 00 00 00 00 00 00 | 00 00 00 fa fb 2b 00 00 |........|.....+..|
|00000590| 00 00 00 00 00 00 00 00 | 00 00 2b fc fc f8 00 00 |........|..+.....|
|000005a0| 00 00 00 00 00 00 00 00 | 00 00 fa 81 ac fa f5 00 |........|........|
|000005b0| 00 00 00 00 00 00 00 00 | 00 00 81 fb 5d fa f8 00 |........|....]...|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 fd ac ac fb 81 00 |........|........|
|000005d0| 00 00 00 00 00 00 00 00 | 00 00 ac fb ac fb fc 00 |........|........|
|000005e0| 00 00 00 00 00 00 00 f5 | 00 f5 81 fd ac fc 88 00 |........|........|
|000005f0| 00 00 00 00 00 f6 2b f9 | f8 56 f7 ac ac fc 88 f5 |......+.|.V......|
|00000600| 00 f5 f8 f8 f7 fa fc ac | ac ac ac fc fb 81 fc f7 |........|........|
|00000610| 00 f9 fd fe f9 fe ac ac | fd fd fd fd fe b2 fd 81 |........|........|
|00000620| fa fb fe fe 2b fc f9 fd | ac ac fd fd fd fd fc fb |....+...|........|
|00000630| fd ac fd ac f5 f7 f7 fd | fd fd fd b2 fe fc f6 2b |........|.......+|
|00000640| fb fd fd fc f8 fc ac fc | fc fb f9 fd fc fc e0 fe |........|........|
|00000650| fe fd 82 81 45 6e 64 47 | 49 6e 74 20 00 00 00 04 |....EndG|Int ....|
|00000660| 65 6c 65 6d 47 72 75 70 | 00 00 01 1c 00 00 00 05 |elemGrup|........|
|00000670| 74 79 70 65 49 6e 74 20 | 49 43 4e 23 64 61 74 61 |typeInt |ICN#data|
|00000680| 53 74 72 6e 00 00 01 00 | 00 01 80 00 00 01 80 00 |Strn....|........|
|00000690| 00 01 80 00 00 01 80 00 | 00 01 c0 00 00 01 c0 00 |........|........|
|000006a0| 00 03 c0 00 00 03 e0 00 | 00 03 e0 00 00 07 e0 00 |........|........|
|000006b0| 00 07 f0 00 00 07 f0 00 | 00 07 f0 00 00 0f f0 00 |........|........|
|000006c0| 00 0f fc 00 00 0f fc 00 | 00 0f fc 00 00 0f fc 00 |........|........|
|000006d0| 00 0f fc 00 00 0f fc 00 | 00 0f fc 00 03 ff fc 0f |........|........|
|000006e0| 0f ff fc 1f 7f ff fe 1f | 7f ff fe 1f 7f ff ff ff |........|........|
|000006f0| 7f ff ff ff 7f ff ff ff | 7f ff ff ff 7f ff ff ff |........|........|
|00000700| 7f ff ff ff 7f ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000710| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000720| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000730| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000740| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000750| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000760| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000770| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000780| ff ff ff ff ff ff ff ff | 45 6e 64 47 49 6e 74 20 |........|EndGInt |
|00000790| 00 00 00 05 65 6c 65 6d | 47 72 75 70 00 00 00 5c |....elem|Grup...\|
|000007a0| 00 00 00 06 74 79 70 65 | 49 6e 74 20 69 63 73 23 |....type|Int ics#|
|000007b0| 64 61 74 61 53 74 72 6e | 00 00 00 40 00 80 00 80 |dataStrn|...@....|
|000007c0| 00 80 01 80 01 80 03 c0 | 03 c0 03 e0 03 e0 03 e0 |........|........|
|000007d0| 01 e0 7f e3 7f ff 5f ff | 1f cf 7d ff 01 80 01 80 |......_.|..}.....|
|000007e0| 01 c0 01 c0 03 c0 03 e0 | 03 e0 03 e0 03 e0 17 e0 |........|........|
|000007f0| ff f7 ff f7 ff ff ff ff | ff ff ff ff 45 6e 64 47 |........|....EndG|
|00000800| 49 6e 74 20 00 00 00 06 | 45 6e 64 47 49 6e 74 20 |Int ....|EndGInt |
|00000810| 00 00 00 02 43 50 61 6c | 47 72 75 70 00 00 00 d0 |....CPal|Grup....|
|00000820| 00 00 00 07 66 6c 61 67 | 49 6e 74 20 00 00 00 00 |....flag|Int ....|
|00000830| 65 6c 65 6d 49 6e 74 20 | ff ff ff ff 65 6c 65 6d |elemInt |....elem|
|00000840| 49 6e 74 20 ff ff ff ff | 65 6c 65 6d 49 6e 74 20 |Int ....|elemInt |
|00000850| ff ff ff ff 65 6c 65 6d | 49 6e 74 20 ff ff ff ff |....elem|Int ....|
|00000860| 65 6c 65 6d 49 6e 74 20 | ff ff ff ff 65 6c 65 6d |elemInt |....elem|
|00000870| 49 6e 74 20 ff ff ff ff | 65 6c 65 6d 49 6e 74 20 |Int ....|elemInt |
|00000880| ff ff ff ff 65 6c 65 6d | 49 6e 74 20 ff ff ff ff |....elem|Int ....|
|00000890| 65 6c 65 6d 49 6e 74 20 | ff ff ff ff 65 6c 65 6d |elemInt |....elem|
|000008a0| 49 6e 74 20 ff ff ff ff | 65 6c 65 6d 49 6e 74 20 |Int ....|elemInt |
|000008b0| ff ff ff ff 65 6c 65 6d | 49 6e 74 20 ff ff ff ff |....elem|Int ....|
|000008c0| 65 6c 65 6d 49 6e 74 20 | ff ff ff ff 65 6c 65 6d |elemInt |....elem|
|000008d0| 49 6e 74 20 ff ff ff ff | 65 6c 65 6d 49 6e 74 20 |Int ....|elemInt |
|000008e0| ff ff ff ff 65 6c 65 6d | 49 6e 74 20 ff ff ff ff |....elem|Int ....|
|000008f0| 45 6e 64 47 49 6e 74 20 | 00 00 00 07 4d 61 63 43 |EndGInt |....MacC|
|00000900| 53 74 72 6e 00 00 00 04 | 64 55 72 58 42 4d 61 63 |Strn....|dUrXBMac|
|00000910| 53 74 72 6e 00 00 00 05 | 44 75 72 61 6b 00 00 00 |Strn....|Durak...|
|00000920| 42 53 69 7a 49 6e 74 20 | 00 2e e0 00 42 4d 53 7a |BSizInt |....BMSz|
|00000930| 49 6e 74 20 00 20 00 00 | 4d 44 49 63 53 74 72 6e |Int . ..|MDIcStrn|
|00000940| 00 00 00 0e 4d 79 20 41 | 70 70 6c 69 63 61 74 69 |....My A|pplicati|
|00000950| 6f 6e 00 00 42 57 69 6e | 53 74 72 6e 00 00 00 0b |on..BWin|Strn....|
|00000960| 41 70 70 4e 61 6d 65 2e | 65 78 65 00 42 4d 44 49 |AppName.|exe.BMDI|
|00000970| 49 6e 74 20 00 00 00 00 | 72 45 64 74 52 65 63 74 |Int ....|rEdtRect|
|00000980| 00 00 00 8a 00 00 00 30 | 00 00 00 df 00 00 01 6d |.......0|.......m|
|00000990| 66 54 79 70 47 72 75 70 | 00 00 00 4c 00 00 00 08 |fTypGrup|...L....|
|000009a0| 6e 61 6d 65 53 74 72 6e | 00 00 00 04 74 65 78 74 |nameStrn|....text|
|000009b0| 4d 61 63 43 53 74 72 6e | 00 00 00 04 52 2a 63 68 |MacCStrn|....R*ch|
|000009c0| 74 79 70 65 53 74 72 6e | 00 00 00 04 54 45 58 54 |typeStrn|....TEXT|
|000009d0| 64 65 66 6e 53 74 72 6e | 00 00 00 00 66 6c 61 67 |defnStrn|....flag|
|000009e0| 49 6e 74 20 00 00 00 00 | 45 6e 64 47 49 6e 74 20 |Int ....|EndGInt |
|000009f0| 00 00 00 08 50 61 64 6e | 50 61 64 6e 00 00 02 14 |....Padn|Padn....|
|00000a00| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000a10| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000a20| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000a30| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000a40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000a50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000a60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000a70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000a80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000a90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000aa0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000ab0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000ac0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000ad0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000ae0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000af0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000b00| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000b10| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000b20| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000b30| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000b40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000b50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000b60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000b70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000b80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000b90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000ba0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000bb0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000bc0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000bd0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000be0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000bf0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000c00| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000c10| 2a 2a 2a 2a 42 6c 6f 6b | 70 56 65 77 00 00 00 01 |****Blok|pVew....|
|00000c20| 00 00 00 00 00 01 78 00 | 00 00 00 00 9e 3a 75 13 |......x.|.....:u.|
|00000c30| 13 78 ae 88 4e 61 6d 65 | 53 74 72 6e 00 00 00 07 |.x..Name|Strn....|
|00000c40| 57 69 6e 64 6f 77 31 00 | 43 6f 6e 74 49 6e 74 20 |Window1.|ContInt |
|00000c50| 00 00 00 00 72 45 64 74 | 52 65 63 74 00 00 00 0e |....rEdt|Rect....|
|00000c60| 00 00 00 4d 00 00 02 c3 | 00 00 02 00 6c 73 74 48 |...M....|....lstH|
|00000c70| 49 6e 74 20 00 00 00 8a | 6c 73 74 56 49 6e 74 20 |Int ....|lstVInt |
|00000c80| 00 00 00 c2 65 53 70 74 | 49 6e 74 20 00 00 00 ab |....eSpt|Int ....|
|00000c90| 50 44 65 66 47 72 75 70 | 00 00 00 28 00 00 00 09 |PDefGrup|...(....|
|00000ca0| 6e 61 6d 65 53 74 72 6e | 00 00 00 04 4e 61 6d 65 |nameStrn|....Name|
|00000cb0| 50 56 61 6c 53 74 72 6e | 00 00 00 07 57 69 6e 64 |PValStrn|....Wind|
|00000cc0| 6f 77 31 00 45 6e 64 47 | 49 6e 74 20 00 00 00 09 |ow1.EndG|Int ....|
|00000cd0| 50 44 65 66 47 72 75 70 | 00 00 00 28 00 00 00 0a |PDefGrup|...(....|
|00000ce0| 6e 61 6d 65 53 74 72 6e | 00 00 00 05 46 72 61 6d |nameStrn|....Fram|
|00000cf0| 65 00 00 00 50 56 61 6c | 53 74 72 6e 00 00 00 01 |e...PVal|Strn....|
|00000d00| 30 00 00 00 45 6e 64 47 | 49 6e 74 20 00 00 00 0a |0...EndG|Int ....|
|00000d10| 50 44 65 66 47 72 75 70 | 00 00 00 30 00 00 00 0b |PDefGrup|...0....|
|00000d20| 6e 61 6d 65 53 74 72 6e | 00 00 00 0c 48 61 73 42 |nameStrn|....HasB|
|00000d30| 61 63 6b 43 6f 6c 6f 72 | 50 56 61 6c 53 74 72 6e |ackColor|PValStrn|
|00000d40| 00 00 00 05 46 61 6c 73 | 65 00 00 00 45 6e 64 47 |....Fals|e...EndG|
|00000d50| 49 6e 74 20 00 00 00 0b | 50 44 65 66 47 72 75 70 |Int ....|PDefGrup|
|00000d60| 00 00 00 30 00 00 00 0c | 6e 61 6d 65 53 74 72 6e |...0....|nameStrn|
|00000d70| 00 00 00 09 42 61 63 6b | 43 6f 6c 6f 72 00 00 00 |....Back|Color...|
|00000d80| 50 56 61 6c 53 74 72 6e | 00 00 00 08 31 36 37 37 |PValStrn|....1677|
|00000d90| 37 32 31 35 45 6e 64 47 | 49 6e 74 20 00 00 00 0c |7215EndG|Int ....|
|00000da0| 50 44 65 66 47 72 75 70 | 00 00 00 28 00 00 00 0d |PDefGrup|...(....|
|00000db0| 6e 61 6d 65 53 74 72 6e | 00 00 00 08 42 61 63 6b |nameStrn|....Back|
|00000dc0| 64 72 6f 70 50 56 61 6c | 53 74 72 6e 00 00 00 01 |dropPVal|Strn....|
|00000dd0| 30 00 00 00 45 6e 64 47 | 49 6e 74 20 00 00 00 0d |0...EndG|Int ....|
|00000de0| 50 44 65 66 47 72 75 70 | 00 00 00 2c 00 00 00 0e |PDefGrup|...,....|
|00000df0| 6e 61 6d 65 53 74 72 6e | 00 00 00 05 54 69 74 6c |nameStrn|....Titl|
|00000e00| 65 00 00 00 50 56 61 6c | 53 74 72 6e 00 00 00 05 |e...PVal|Strn....|
|00000e10| 44 75 72 61 6b 00 00 00 | 45 6e 64 47 49 6e 74 20 |Durak...|EndGInt |
|00000e20| 00 00 00 0e 50 44 65 66 | 47 72 75 70 00 00 00 28 |....PDef|Grup...(|
|00000e30| 00 00 00 0f 6e 61 6d 65 | 53 74 72 6e 00 00 00 07 |....name|Strn....|
|00000e40| 56 69 73 69 62 6c 65 00 | 50 56 61 6c 53 74 72 6e |Visible.|PValStrn|
|00000e50| 00 00 00 04 54 72 75 65 | 45 6e 64 47 49 6e 74 20 |....True|EndGInt |
|00000e60| 00 00 00 0f 50 44 65 66 | 47 72 75 70 00 00 00 30 |....PDef|Grup...0|
|00000e70| 00 00 00 10 6e 61 6d 65 | 53 74 72 6e 00 00 00 0a |....name|Strn....|
|00000e80| 46 75 6c 6c 53 63 72 65 | 65 6e 00 00 50 56 61 6c |FullScre|en..PVal|
|00000e90| 53 74 72 6e 00 00 00 05 | 46 61 6c 73 65 00 00 00 |Strn....|False...|
|00000ea0| 45 6e 64 47 49 6e 74 20 | 00 00 00 10 50 44 65 66 |EndGInt |....PDef|
|00000eb0| 47 72 75 70 00 00 00 30 | 00 00 00 11 6e 61 6d 65 |Grup...0|....name|
|00000ec0| 53 74 72 6e 00 00 00 0e | 4d 65 6e 75 42 61 72 56 |Strn....|MenuBarV|
|00000ed0| 69 73 69 62 6c 65 00 00 | 50 56 61 6c 53 74 72 6e |isible..|PValStrn|
|00000ee0| 00 00 00 04 54 72 75 65 | 45 6e 64 47 49 6e 74 20 |....True|EndGInt |
|00000ef0| 00 00 00 11 50 44 65 66 | 47 72 75 70 00 00 00 2c |....PDef|Grup...,|
|00000f00| 00 00 00 12 6e 61 6d 65 | 53 74 72 6e 00 00 00 08 |....name|Strn....|
|00000f10| 43 6c 6f 73 65 42 6f 78 | 50 56 61 6c 53 74 72 6e |CloseBox|PValStrn|
|00000f20| 00 00 00 05 46 61 6c 73 | 65 00 00 00 45 6e 64 47 |....Fals|e...EndG|
|00000f30| 49 6e 74 20 00 00 00 12 | 50 44 65 66 47 72 75 70 |Int ....|PDefGrup|
|00000f40| 00 00 00 2c 00 00 00 13 | 6e 61 6d 65 53 74 72 6e |...,....|nameStrn|
|00000f50| 00 00 00 08 47 72 6f 77 | 49 63 6f 6e 50 56 61 6c |....Grow|IconPVal|
|00000f60| 53 74 72 6e 00 00 00 05 | 46 61 6c 73 65 00 00 00 |Strn....|False...|
|00000f70| 45 6e 64 47 49 6e 74 20 | 00 00 00 13 50 44 65 66 |EndGInt |....PDef|
|00000f80| 47 72 75 70 00 00 00 2c | 00 00 00 14 6e 61 6d 65 |Grup...,|....name|
|00000f90| 53 74 72 6e 00 00 00 08 | 5a 6f 6f 6d 49 63 6f 6e |Strn....|ZoomIcon|
|00000fa0| 50 56 61 6c 53 74 72 6e | 00 00 00 05 46 61 6c 73 |PValStrn|....Fals|
|00000fb0| 65 00 00 00 45 6e 64 47 | 49 6e 74 20 00 00 00 14 |e...EndG|Int ....|
|00000fc0| 50 44 65 66 47 72 75 70 | 00 00 00 28 00 00 00 15 |PDefGrup|...(....|
|00000fd0| 6e 61 6d 65 53 74 72 6e | 00 00 00 0b 42 61 6c 6c |nameStrn|....Ball|
|00000fe0| 6f 6f 6e 48 65 6c 70 00 | 50 56 61 6c 53 74 72 6e |oonHelp.|PValStrn|
|00000ff0| 00 00 00 00 45 6e 64 47 | 49 6e 74 20 00 00 00 15 |....EndG|Int ....|
|00001000| 50 44 65 66 47 72 75 70 | 00 00 00 2c 00 00 00 16 |PDefGrup|...,....|
|00001010| 6e 61 6d 65 53 74 72 6e | 00 00 00 09 4d 61 63 50 |nameStrn|....MacP|
|00001020| 72 6f 63 49 44 00 00 00 | 50 56 61 6c 53 74 72 6e |rocID...|PValStrn|
|00001030| 00 00 00 01 30 00 00 00 | 45 6e 64 47 49 6e 74 20 |....0...|EndGInt |
|00001040| 00 00 00 16 50 44 65 66 | 47 72 75 70 00 00 00 2c |....PDef|Grup...,|
|00001050| 00 00 00 17 6e 61 6d 65 | 53 74 72 6e 00 00 00 09 |....name|Strn....|
|00001060| 50 6c 61 63 65 6d 65 6e | 74 00 00 00 50 56 61 6c |Placemen|t...PVal|
|00001070| 53 74 72 6e 00 00 00 01 | 30 00 00 00 45 6e 64 47 |Strn....|0...EndG|
|00001080| 49 6e 74 20 00 00 00 17 | 50 44 65 66 47 72 75 70 |Int ....|PDefGrup|
|00001090| 00 00 00 28 00 00 00 18 | 6e 61 6d 65 53 74 72 6e |...(....|nameStrn|
|000010a0| 00 00 00 05 57 69 64 74 | 68 00 00 00 50 56 61 6c |....Widt|h...PVal|
|000010b0| 53 74 72 6e 00 00 00 03 | 34 33 32 00 45 6e 64 47 |Strn....|432.EndG|
|000010c0| 49 6e 74 20 00 00 00 18 | 50 44 65 66 47 72 75 70 |Int ....|PDefGrup|
|000010d0| 00 00 00 28 00 00 00 19 | 6e 61 6d 65 53 74 72 6e |...(....|nameStrn|
|000010e0| 00 00 00 06 48 65 69 67 | 68 74 00 00 50 56 61 6c |....Heig|ht..PVal|
|000010f0| 53 74 72 6e 00 00 00 03 | 33 32 34 00 45 6e 64 47 |Strn....|324.EndG|
|00001100| 49 6e 74 20 00 00 00 19 | 50 44 65 66 47 72 75 70 |Int ....|PDefGrup|
|00001110| 00 00 00 28 00 00 00 1a | 6e 61 6d 65 53 74 72 6e |...(....|nameStrn|
|00001120| 00 00 00 08 4d 69 6e 57 | 69 64 74 68 50 56 61 6c |....MinW|idthPVal|
|00001130| 53 74 72 6e 00 00 00 02 | 36 34 00 00 45 6e 64 47 |Strn....|64..EndG|
|00001140| 49 6e 74 20 00 00 00 1a | 50 44 65 66 47 72 75 70 |Int ....|PDefGrup|
|00001150| 00 00 00 2c 00 00 00 1b | 6e 61 6d 65 53 74 72 6e |...,....|nameStrn|
|00001160| 00 00 00 09 4d 69 6e 48 | 65 69 67 68 74 00 00 00 |....MinH|eight...|
|00001170| 50 56 61 6c 53 74 72 6e | 00 00 00 02 36 34 00 00 |PValStrn|....64..|
|00001180| 45 6e 64 47 49 6e 74 20 | 00 00 00 1b 50 44 65 66 |EndGInt |....PDef|
|00001190| 47 72 75 70 00 00 00 2c | 00 00 00 1c 6e 61 6d 65 |Grup...,|....name|
|000011a0| 53 74 72 6e 00 00 00 08 | 4d 61 78 57 69 64 74 68 |Strn....|MaxWidth|
|000011b0| 50 56 61 6c 53 74 72 6e | 00 00 00 05 33 32 30 30 |PValStrn|....3200|
|000011c0| 30 00 00 00 45 6e 64 47 | 49 6e 74 20 00 00 00 1c |0...EndG|Int ....|
|000011d0| 50 44 65 66 47 72 75 70 | 00 00 00 30 00 00 00 1d |PDefGrup|...0....|
|000011e0| 6e 61 6d 65 53 74 72 6e | 00 00 00 09 4d 61 78 48 |nameStrn|....MaxH|
|000011f0| 65 69 67 68 74 00 00 00 | 50 56 61 6c 53 74 72 6e |eight...|PValStrn|
|00001200| 00 00 00 05 33 32 30 30 | 30 00 00 00 45 6e 64 47 |....3200|0...EndG|
|00001210| 49 6e 74 20 00 00 00 1d | 46 44 65 66 47 72 75 70 |Int ....|FDefGrup|
|00001220| 00 00 74 e0 00 00 00 1e | 4e 61 6d 65 53 74 72 6e |..t.....|NameStrn|
|00001230| 00 00 00 07 57 69 6e 64 | 6f 77 31 00 53 69 7a 65 |....Wind|ow1.Size|
|00001240| 49 6e 74 20 00 00 00 85 | 53 75 70 72 53 74 72 6e |Int ....|SuprStrn|
|00001250| 00 00 00 06 41 70 70 6c | 65 74 00 00 62 4e 74 72 |....Appl|et..bNtr|
|00001260| 49 6e 74 20 00 00 00 00 | 50 72 6f 70 47 72 75 70 |Int ....|PropGrup|
|00001270| 00 00 00 2c 00 00 00 1f | 64 65 63 6c 53 74 72 6e |...,....|declStrn|
|00001280| 00 00 00 0f 74 68 65 44 | 65 63 6b 20 61 73 20 64 |....theD|eck as d|
|00001290| 65 63 6b 00 66 6c 61 67 | 49 6e 74 20 00 00 00 00 |eck.flag|Int ....|
|000012a0| 45 6e 64 47 49 6e 74 20 | 00 00 00 1f 50 72 6f 70 |EndGInt |....Prop|
|000012b0| 47 72 75 70 00 00 00 30 | 00 00 00 20 64 65 63 6c |Grup...0|... decl|
|000012c0| 53 74 72 6e 00 00 00 13 | 63 6f 6d 70 75 74 65 72 |Strn....|computer|
|000012d0| 28 30 29 20 61 73 20 63 | 61 72 64 00 66 6c 61 67 |(0) as c|ard.flag|
|000012e0| 49 6e 74 20 00 00 00 00 | 45 6e 64 47 49 6e 74 20 |Int ....|EndGInt |
|000012f0| 00 00 00 20 50 72 6f 70 | 47 72 75 70 00 00 00 2c |... Prop|Grup...,|
|00001300| 00 00 00 21 64 65 63 6c | 53 74 72 6e 00 00 00 0f |...!decl|Strn....|
|00001310| 73 74 61 74 65 20 61 73 | 20 73 74 72 69 6e 67 00 |state as| string.|
|00001320| 66 6c 61 67 49 6e 74 20 | 00 00 00 00 45 6e 64 47 |flagInt |....EndG|
|00001330| 49 6e 74 20 00 00 00 21 | 50 72 6f 70 47 72 75 70 |Int ...!|PropGrup|
|00001340| 00 00 00 2c 00 00 00 22 | 64 65 63 6c 53 74 72 6e |...,..."|declStrn|
|00001350| 00 00 00 0f 74 72 75 6d | 70 20 61 73 20 73 74 72 |....trum|p as str|
|00001360| 69 6e 67 00 66 6c 61 67 | 49 6e 74 20 00 00 00 00 |ing.flag|Int ....|
|00001370| 45 6e 64 47 49 6e 74 20 | 00 00 00 22 50 72 6f 70 |EndGInt |..."Prop|
|00001380| 47 72 75 70 00 00 00 3c | 00 00 00 23 64 65 63 6c |Grup...<|...#decl|
|00001390| 53 74 72 6e 00 00 00 1e | 64 65 66 65 6e 64 65 72 |Strn....|defender|
|000013a0| 53 74 61 72 74 65 64 57 | 69 74 68 20 61 73 20 69 |StartedW|ith as i|
|000013b0| 6e 74 65 67 65 72 00 00 | 66 6c 61 67 49 6e 74 20 |nteger..|flagInt |
|000013c0| 00 00 00 00 45 6e 64 47 | 49 6e 74 20 00 00 00 23 |....EndG|Int ...#|
|000013d0| 50 72 6f 70 47 72 75 70 | 00 00 00 30 00 00 00 24 |PropGrup|...0...$|
|000013e0| 64 65 63 6c 53 74 72 6e | 00 00 00 13 67 61 6d 65 |declStrn|....game|
|000013f0| 6f 76 65 72 20 61 73 20 | 62 6f 6f 6c 65 61 6e 00 |over as |boolean.|
|00001400| 66 6c 61 67 49 6e 74 20 | 00 00 00 00 45 6e 64 47 |flagInt |....EndG|
|00001410| 49 6e 74 20 00 00 00 24 | 4d 65 74 68 47 72 75 70 |Int ...$|MethGrup|
|00001420| 00 00 06 88 00 00 00 25 | 6e 61 6d 65 53 74 72 6e |.......%|nameStrn|
|00001430| 00 00 00 09 67 69 76 65 | 48 75 6d 61 6e 00 00 00 |....give|Human...|
|00001440| 70 61 72 6d 53 74 72 6e | 00 00 00 09 63 20 61 73 |parmStrn|....c as|
|00001450| 20 63 61 72 64 00 00 00 | 72 73 6c 74 53 74 72 6e | card...|rsltStrn|
|00001460| 00 00 00 07 69 6e 74 65 | 67 65 72 00 66 6c 61 67 |....inte|ger.flag|
|00001470| 49 6e 74 20 00 00 00 00 | 73 6f 72 63 47 72 75 70 |Int ....|sorcGrup|
|00001480| 00 00 06 1c 00 00 00 26 | 73 74 73 72 49 6e 74 20 |.......&|stsrInt |
|00001490| 00 00 00 20 73 74 73 63 | 49 6e 74 20 00 00 00 16 |... stsc|Int ....|
|000014a0| 6e 64 73 72 49 6e 74 20 | 00 00 00 20 6e 64 73 63 |ndsrInt |... ndsc|
|000014b0| 49 6e 74 20 00 00 00 19 | 73 72 63 6c 53 74 72 6e |Int ....|srclStrn|
|000014c0| 00 00 00 28 46 75 6e 63 | 74 69 6f 6e 20 67 69 76 |...(Func|tion giv|
|000014d0| 65 48 75 6d 61 6e 28 63 | 20 61 73 20 63 61 72 64 |eHuman(c| as card|
|000014e0| 29 20 41 73 20 69 6e 74 | 65 67 65 72 73 72 63 6c |) As int|egersrcl|
|000014f0| 53 74 72 6e 00 00 00 12 | 64 69 6d 20 69 2c 6a 20 |Strn....|dim i,j |
|00001500| 61 73 20 69 6e 74 65 67 | 65 72 00 00 73 72 63 6c |as integ|er..srcl|
|00001510| 53 74 72 6e 00 00 00 10 | 64 69 6d 20 62 20 61 73 |Strn....|dim b as|
|00001520| 20 62 6f 6f 6c 65 61 6e | 73 72 63 6c 53 74 72 6e | boolean|srclStrn|
|00001530| 00 00 00 11 64 69 6d 20 | 63 74 65 6d 70 20 61 73 |....dim |ctemp as|
|00001540| 20 63 61 72 64 00 00 00 | 73 72 63 6c 53 74 72 6e | card...|srclStrn|
|00001550| 00 00 00 0f 69 66 20 63 | 20 3d 20 6e 69 6c 20 74 |....if c| = nil t|
|00001560| 68 65 6e 00 73 72 63 6c | 53 74 72 6e 00 00 00 09 |hen.srcl|Strn....|
|00001570| 72 65 74 75 72 6e 20 2d | 31 00 00 00 73 72 63 6c |return -|1...srcl|
|00001580| 53 74 72 6e 00 00 00 03 | 65 6e 64 00 73 72 63 6c |Strn....|end.srcl|
|00001590| 53 74 72 6e 00 00 00 21 | 62 20 3d 20 6f 70 74 69 |Strn...!|b = opti|
|000015a0| 6f 6e 62 72 69 64 67 65 | 73 75 69 74 6f 72 64 65 |onbridge|suitorde|
|000015b0| 72 2e 63 68 65 63 6b 65 | 64 00 00 00 73 72 63 6c |r.checke|d...srcl|
|000015c0| 53 74 72 6e 00 00 00 1f | 69 66 20 6f 70 74 69 6f |Strn....|if optio|
|000015d0| 6e 72 61 6e 6b 6f 72 64 | 65 72 2e 63 68 65 63 6b |nrankord|er.check|
|000015e0| 65 64 20 74 68 65 6e 00 | 73 72 63 6c 53 74 72 6e |ed then.|srclStrn|
|000015f0| 00 00 00 1f 2f 2f 20 73 | 6f 72 74 65 64 20 62 79 |....// s|orted by|
|00001600| 20 72 61 6e 6b 2c 20 74 | 68 65 6e 20 62 79 20 73 | rank, t|hen by s|
|00001610| 75 69 74 00 73 72 63 6c | 53 74 72 6e 00 00 00 45 |uit.srcl|Strn...E|
|00001620| 77 68 69 6c 65 20 61 48 | 75 6d 61 6e 43 61 72 64 |while aH|umanCard|
|00001630| 28 69 29 2e 67 65 74 43 | 61 72 64 20 3c 3e 20 6e |(i).getC|ard <> n|
|00001640| 69 6c 20 61 6e 64 20 61 | 48 75 6d 61 6e 43 61 72 |il and a|HumanCar|
|00001650| 64 28 69 29 2e 67 65 74 | 52 61 6e 6b 20 3c 20 63 |d(i).get|Rank < c|
|00001660| 2e 72 61 6e 6b 00 00 00 | 73 72 63 6c 53 74 72 6e |.rank...|srclStrn|
|00001670| 00 00 00 09 69 20 3d 20 | 69 20 2b 20 31 00 00 00 |....i = |i + 1...|
|00001680| 73 72 63 6c 53 74 72 6e | 00 00 00 04 77 65 6e 64 |srclStrn|....wend|
|00001690| 73 72 63 6c 53 74 72 6e | 00 00 00 7b 77 68 69 6c |srclStrn|...{whil|
|000016a0| 65 20 61 48 75 6d 61 6e | 43 61 72 64 28 69 29 2e |e aHuman|Card(i).|
|000016b0| 67 65 74 43 61 72 64 20 | 3c 3e 20 6e 69 6c 20 61 |getCard |<> nil a|
|000016c0| 6e 64 20 61 48 75 6d 61 | 6e 43 61 72 64 28 69 29 |nd aHuma|nCard(i)|
|000016d0| 2e 67 65 74 52 61 6e 6b | 20 3d 20 63 2e 72 61 6e |.getRank| = c.ran|
|000016e0| 6b 20 61 6e 64 20 61 48 | 75 6d 61 6e 43 61 72 64 |k and aH|umanCard|
|000016f0| 28 69 29 2e 67 65 74 43 | 61 72 64 2e 73 75 69 74 |(i).getC|ard.suit|
|00001700| 49 73 53 6d 61 6c 6c 65 | 72 54 68 61 6e 28 63 2e |IsSmalle|rThan(c.|
|00001710| 73 75 69 74 2c 62 29 00 | 73 72 63 6c 53 74 72 6e |suit,b).|srclStrn|
|00001720| 00 00 00 09 69 20 3d 20 | 69 20 2b 20 31 00 00 00 |....i = |i + 1...|
|00001730| 73 72 63 6c 53 74 72 6e | 00 00 00 04 77 65 6e 64 |srclStrn|....wend|
|00001740| 73 72 63 6c 53 74 72 6e | 00 00 00 27 65 6c 73 65 |srclStrn|...'else|
|00001750| 20 2f 2f 20 69 66 20 6f | 70 74 69 6f 6e 73 75 69 | // if o|ptionsui|
|00001760| 74 6f 72 64 65 72 2e 63 | 68 65 63 6b 65 64 20 74 |torder.c|hecked t|
|00001770| 68 65 6e 00 73 72 63 6c | 53 74 72 6e 00 00 00 1f |hen.srcl|Strn....|
|00001780| 2f 2f 20 73 6f 72 74 65 | 64 20 62 79 20 73 75 69 |// sorte|d by sui|
|00001790| 74 2c 20 74 68 65 6e 20 | 62 79 20 72 61 6e 6b 00 |t, then |by rank.|
|000017a0| 73 72 63 6c 53 74 72 6e | 00 00 00 58 77 68 69 6c |srclStrn|...Xwhil|
|000017b0| 65 20 61 48 75 6d 61 6e | 43 61 72 64 28 69 29 2e |e aHuman|Card(i).|
|000017c0| 67 65 74 43 61 72 64 20 | 3c 3e 20 6e 69 6c 20 61 |getCard |<> nil a|
|000017d0| 6e 64 20 61 48 75 6d 61 | 6e 43 61 72 64 28 69 29 |nd aHuma|nCard(i)|
|000017e0| 2e 67 65 74 43 61 72 64 | 2e 73 75 69 74 49 73 53 |.getCard|.suitIsS|
|000017f0| 6d 61 6c 6c 65 72 54 68 | 61 6e 28 63 2e 73 75 69 |mallerTh|an(c.sui|
|00001800| 74 2c 62 29 73 72 63 6c | 53 74 72 6e 00 00 00 09 |t,b)srcl|Strn....|
|00001810| 69 20 3d 20 69 20 2b 20 | 31 00 00 00 73 72 63 6c |i = i + |1...srcl|
|00001820| 53 74 72 6e 00 00 00 04 | 77 65 6e 64 73 72 63 6c |Strn....|wendsrcl|
|00001830| 53 74 72 6e 00 00 00 68 | 77 68 69 6c 65 20 61 48 |Strn...h|while aH|
|00001840| 75 6d 61 6e 43 61 72 64 | 28 69 29 2e 67 65 74 43 |umanCard|(i).getC|
|00001850| 61 72 64 20 3c 3e 20 6e | 69 6c 20 61 6e 64 20 61 |ard <> n|il and a|
|00001860| 48 75 6d 61 6e 43 61 72 | 64 28 69 29 2e 67 65 74 |HumanCar|d(i).get|
|00001870| 53 75 69 74 20 3d 20 63 | 2e 73 75 69 74 20 61 6e |Suit = c|.suit an|
|00001880| 64 20 61 48 75 6d 61 6e | 43 61 72 64 28 69 29 2e |d aHuman|Card(i).|
|00001890| 67 65 74 52 61 6e 6b 20 | 3c 20 63 2e 72 61 6e 6b |getRank |< c.rank|
|000018a0| 73 72 63 6c 53 74 72 6e | 00 00 00 09 69 20 3d 20 |srclStrn|....i = |
|000018b0| 69 20 2b 20 31 00 00 00 | 73 72 63 6c 53 74 72 6e |i + 1...|srclStrn|
|000018c0| 00 00 00 04 77 65 6e 64 | 73 72 63 6c 53 74 72 6e |....wend|srclStrn|
|000018d0| 00 00 00 03 65 6e 64 00 | 73 72 63 6c 53 74 72 6e |....end.|srclStrn|
|000018e0| 00 00 00 1f 2f 2f 20 6d | 6f 76 65 20 63 61 72 64 |....// m|ove card|
|000018f0| 73 20 75 70 20 6f 75 74 | 20 6f 66 20 74 68 65 20 |s up out| of the |
|00001900| 77 61 79 00 73 72 63 6c | 53 74 72 6e 00 00 00 24 |way.srcl|Strn...$|
|00001910| 69 66 20 61 48 75 6d 61 | 6e 43 61 72 64 28 69 29 |if aHuma|nCard(i)|
|00001920| 2e 67 65 74 43 61 72 64 | 20 3c 3e 20 6e 69 6c 20 |.getCard| <> nil |
|00001930| 74 68 65 6e 73 72 63 6c | 53 74 72 6e 00 00 00 15 |thensrcl|Strn....|
|00001940| 66 6f 72 20 6a 20 3d 20 | 32 36 20 64 6f 77 6e 74 |for j = |26 downt|
|00001950| 6f 20 69 2b 31 00 00 00 | 73 72 63 6c 53 74 72 6e |o i+1...|srclStrn|
|00001960| 00 00 00 2d 61 48 75 6d | 61 6e 43 61 72 64 28 6a |...-aHum|anCard(j|
|00001970| 29 2e 73 65 74 43 61 72 | 64 20 61 48 75 6d 61 6e |).setCar|d aHuman|
|00001980| 43 61 72 64 28 6a 2d 31 | 29 2e 67 65 74 43 61 72 |Card(j-1|).getCar|
|00001990| 64 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 15 |d...srcl|Strn....|
|000019a0| 61 48 75 6d 61 6e 43 61 | 72 64 28 6a 29 2e 72 65 |aHumanCa|rd(j).re|
|000019b0| 66 72 65 73 68 00 00 00 | 73 72 63 6c 53 74 72 6e |fresh...|srclStrn|
|000019c0| 00 00 00 04 6e 65 78 74 | 73 72 63 6c 53 74 72 6e |....next|srclStrn|
|000019d0| 00 00 00 03 65 6e 64 00 | 73 72 63 6c 53 74 72 6e |....end.|srclStrn|
|000019e0| 00 00 00 19 61 48 75 6d | 61 6e 43 61 72 64 28 69 |....aHum|anCard(i|
|000019f0| 29 2e 73 65 74 43 61 72 | 64 20 6e 69 6c 00 00 00 |).setCar|d nil...|
|00001a00| 73 72 63 6c 53 74 72 6e | 00 00 00 15 61 48 75 6d |srclStrn|....aHum|
|00001a10| 61 6e 43 61 72 64 28 69 | 29 2e 72 65 66 72 65 73 |anCard(i|).refres|
|00001a20| 68 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 17 |h...srcl|Strn....|
|00001a30| 61 48 75 6d 61 6e 43 61 | 72 64 28 69 29 2e 73 65 |aHumanCa|rd(i).se|
|00001a40| 74 43 61 72 64 20 63 00 | 73 72 63 6c 53 74 72 6e |tCard c.|srclStrn|
|00001a50| 00 00 00 31 72 65 74 75 | 72 6e 20 69 20 2f 2f 20 |...1retu|rn i // |
|00001a60| 75 70 20 74 6f 20 63 61 | 6c 6c 65 72 20 74 6f 20 |up to ca|ller to |
|00001a70| 61 73 6b 20 66 6f 72 20 | 66 69 6e 61 6c 20 72 65 |ask for |final re|
|00001a80| 66 72 65 73 68 00 00 00 | 73 72 63 6c 53 74 72 6e |fresh...|srclStrn|
|00001a90| 00 00 00 0c 45 6e 64 20 | 46 75 6e 63 74 69 6f 6e |....End |Function|
|00001aa0| 45 6e 64 47 49 6e 74 20 | 00 00 00 26 45 6e 64 47 |EndGInt |...&EndG|
|00001ab0| 49 6e 74 20 00 00 00 25 | 4d 65 74 68 47 72 75 70 |Int ...%|MethGrup|
|00001ac0| 00 00 06 50 00 00 00 27 | 6e 61 6d 65 53 74 72 6e |...P...'|nameStrn|
|00001ad0| 00 00 00 09 73 74 61 72 | 74 47 61 6d 65 00 00 00 |....star|tGame...|
|00001ae0| 70 61 72 6d 53 74 72 6e | 00 00 00 00 72 73 6c 74 |parmStrn|....rslt|
|00001af0| 53 74 72 6e 00 00 00 00 | 66 6c 61 67 49 6e 74 20 |Strn....|flagInt |
|00001b00| 00 00 00 00 73 6f 72 63 | 47 72 75 70 00 00 05 f8 |....sorc|Grup....|
|00001b10| 00 00 00 28 73 74 73 72 | 49 6e 74 20 00 00 00 16 |...(stsr|Int ....|
|00001b20| 73 74 73 63 49 6e 74 20 | 00 00 00 12 6e 64 73 72 |stscInt |....ndsr|
|00001b30| 49 6e 74 20 00 00 00 16 | 6e 64 73 63 49 6e 74 20 |Int ....|ndscInt |
|00001b40| 00 00 00 15 73 72 63 6c | 53 74 72 6e 00 00 00 0f |....srcl|Strn....|
|00001b50| 53 75 62 20 73 74 61 72 | 74 47 61 6d 65 28 29 00 |Sub star|tGame().|
|00001b60| 73 72 63 6c 53 74 72 6e | 00 00 00 16 64 69 6d 20 |srclStrn|....dim |
|00001b70| 69 2c 64 75 6d 6d 79 20 | 61 73 20 69 6e 74 65 67 |i,dummy |as integ|
|00001b80| 65 72 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 00 |er..srcl|Strn....|
|00001b90| 73 72 63 6c 53 74 72 6e | 00 00 00 16 2f 2f 20 63 |srclStrn|....// c|
|00001ba0| 6c 65 61 72 20 74 68 65 | 20 70 6c 61 79 20 61 72 |lear the| play ar|
|00001bb0| 65 61 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 0a |ea..srcl|Strn....|
|00001bc0| 63 6c 65 61 72 50 6c 61 | 79 73 00 00 73 72 63 6c |clearPla|ys..srcl|
|00001bd0| 53 74 72 6e 00 00 00 00 | 73 72 63 6c 53 74 72 6e |Strn....|srclStrn|
|00001be0| 00 00 00 1c 2f 2f 20 63 | 6c 65 61 72 20 74 68 65 |....// c|lear the|
|00001bf0| 20 63 6f 6d 70 75 74 65 | 72 27 73 20 68 61 6e 64 | compute|r's hand|
|00001c00| 73 72 63 6c 53 74 72 6e | 00 00 00 11 72 65 64 69 |srclStrn|....redi|
|00001c10| 6d 20 63 6f 6d 70 75 74 | 65 72 28 30 29 00 00 00 |m comput|er(0)...|
|00001c20| 73 72 63 6c 53 74 72 6e | 00 00 00 17 63 6f 6d 70 |srclStrn|....comp|
|00001c30| 75 74 65 72 63 6f 75 6e | 74 2e 63 6f 75 6e 74 20 |utercoun|t.count |
|00001c40| 3d 20 30 00 73 72 63 6c | 53 74 72 6e 00 00 00 00 |= 0.srcl|Strn....|
|00001c50| 73 72 63 6c 53 74 72 6e | 00 00 00 19 2f 2f 20 63 |srclStrn|....// c|
|00001c60| 6c 65 61 72 20 74 68 65 | 20 68 75 6d 61 6e 27 73 |lear the| human's|
|00001c70| 20 68 61 6e 64 00 00 00 | 73 72 63 6c 53 74 72 6e | hand...|srclStrn|
|00001c80| 00 00 00 1a 77 68 69 6c | 65 20 61 48 75 6d 61 6e |....whil|e aHuman|
|00001c90| 43 61 72 64 28 69 29 20 | 3c 3e 20 6e 69 6c 00 00 |Card(i) |<> nil..|
|00001ca0| 73 72 63 6c 53 74 72 6e | 00 00 00 24 69 66 20 61 |srclStrn|...$if a|
|00001cb0| 48 75 6d 61 6e 43 61 72 | 64 28 69 29 2e 67 65 74 |HumanCar|d(i).get|
|00001cc0| 43 61 72 64 20 3c 3e 20 | 6e 69 6c 20 74 68 65 6e |Card <> |nil then|
|00001cd0| 73 72 63 6c 53 74 72 6e | 00 00 00 1f 61 6e 69 6d |srclStrn|....anim|
|00001ce0| 61 74 65 28 61 48 75 6d | 61 6e 43 61 72 64 28 69 |ate(aHum|anCard(i|
|00001cf0| 29 2c 20 64 69 73 63 61 | 72 64 29 00 73 72 63 6c |), disca|rd).srcl|
|00001d00| 53 74 72 6e 00 00 00 03 | 65 6e 64 00 73 72 63 6c |Strn....|end.srcl|
|00001d10| 53 74 72 6e 00 00 00 19 | 61 48 75 6d 61 6e 43 61 |Strn....|aHumanCa|
|00001d20| 72 64 28 69 29 2e 73 65 | 74 43 61 72 64 20 6e 69 |rd(i).se|tCard ni|
|00001d30| 6c 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 1c |l...srcl|Strn....|
|00001d40| 61 48 75 6d 61 6e 43 61 | 72 64 28 69 29 2e 68 69 |aHumanCa|rd(i).hi|
|00001d50| 64 64 65 6e 20 3d 20 66 | 61 6c 73 65 73 72 63 6c |dden = f|alsesrcl|
|00001d60| 53 74 72 6e 00 00 00 15 | 61 48 75 6d 61 6e 43 61 |Strn....|aHumanCa|
|00001d70| 72 64 28 69 29 2e 72 65 | 66 72 65 73 68 00 00 00 |rd(i).re|fresh...|
|00001d80| 73 72 63 6c 53 74 72 6e | 00 00 00 09 69 20 3d 20 |srclStrn|....i = |
|00001d90| 69 20 2b 20 31 00 00 00 | 73 72 63 6c 53 74 72 6e |i + 1...|srclStrn|
|00001da0| 00 00 00 04 77 65 6e 64 | 73 72 63 6c 53 74 72 6e |....wend|srclStrn|
|00001db0| 00 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 1a |....srcl|Strn....|
|00001dc0| 2f 2f 20 63 6c 65 61 72 | 20 74 68 65 20 74 72 75 |// clear| the tru|
|00001dd0| 6d 70 20 64 69 73 70 6c | 61 79 00 00 73 72 63 6c |mp displ|ay..srcl|
|00001de0| 53 74 72 6e 00 00 00 15 | 74 72 75 6d 70 63 61 72 |Strn....|trumpcar|
|00001df0| 64 2e 73 65 74 43 61 72 | 64 20 6e 69 6c 00 00 00 |d.setCar|d nil...|
|00001e00| 73 72 63 6c 53 74 72 6e | 00 00 00 11 74 72 75 6d |srclStrn|....trum|
|00001e10| 70 63 61 72 64 2e 72 65 | 66 72 65 73 68 00 00 00 |pcard.re|fresh...|
|00001e20| 73 72 63 6c 53 74 72 6e | 00 00 00 00 73 72 63 6c |srclStrn|....srcl|
|00001e30| 53 74 72 6e 00 00 00 15 | 73 61 79 20 22 43 6f 6d |Strn....|say "Com|
|00001e40| 70 75 74 65 72 20 64 65 | 61 6c 73 2e 22 00 00 00 |puter de|als."...|
|00001e50| 73 72 63 6c 53 74 72 6e | 00 00 00 00 73 72 63 6c |srclStrn|....srcl|
|00001e60| 53 74 72 6e 00 00 00 19 | 2f 2f 20 63 72 65 61 74 |Strn....|// creat|
|00001e70| 65 20 61 20 73 68 75 66 | 66 6c 65 64 20 64 65 63 |e a shuf|fled dec|
|00001e80| 6b 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 12 |k...srcl|Strn....|
|00001e90| 74 68 65 44 65 63 6b 20 | 3d 20 6e 65 77 20 64 65 |theDeck |= new de|
|00001ea0| 63 6b 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 0c |ck..srcl|Strn....|
|00001eb0| 73 68 75 66 66 6c 65 2e | 70 6c 61 79 73 72 63 6c |shuffle.|playsrcl|
|00001ec0| 53 74 72 6e 00 00 00 17 | 77 68 69 6c 65 20 73 68 |Strn....|while sh|
|00001ed0| 75 66 66 6c 65 2e 69 73 | 70 6c 61 79 69 6e 67 00 |uffle.is|playing.|
|00001ee0| 73 72 63 6c 53 74 72 6e | 00 00 00 04 77 65 6e 64 |srclStrn|....wend|
|00001ef0| 73 72 63 6c 53 74 72 6e | 00 00 00 00 73 72 63 6c |srclStrn|....srcl|
|00001f00| 53 74 72 6e 00 00 00 2a | 2f 2f 20 67 69 76 65 20 |Strn...*|// give |
|00001f10| 74 68 65 20 68 75 6d 61 | 6e 20 61 6e 64 20 74 68 |the huma|n and th|
|00001f20| 65 20 63 6f 6d 70 75 74 | 65 72 20 36 20 63 61 72 |e comput|er 6 car|
|00001f30| 64 73 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 0e |ds..srcl|Strn....|
|00001f40| 66 6f 72 20 69 20 3d 20 | 31 20 74 6f 20 36 00 00 |for i = |1 to 6..|
|00001f50| 73 72 63 6c 53 74 72 6e | 00 00 00 20 64 75 6d 6d |srclStrn|... dumm|
|00001f60| 79 20 3d 20 67 69 76 65 | 48 75 6d 61 6e 20 28 74 |y = give|Human (t|
|00001f70| 68 65 44 65 63 6b 2e 64 | 65 61 6c 29 73 72 63 6c |heDeck.d|eal)srcl|
|00001f80| 53 74 72 6e 00 00 00 25 | 61 6e 69 6d 61 74 65 28 |Strn...%|animate(|
|00001f90| 64 65 63 6b 43 6f 75 6e | 74 2c 20 61 48 75 6d 61 |deckCoun|t, aHuma|
|00001fa0| 6e 43 61 72 64 28 64 75 | 6d 6d 79 29 29 00 00 00 |nCard(du|mmy))...|
|00001fb0| 73 72 63 6c 53 74 72 6e | 00 00 00 19 61 48 75 6d |srclStrn|....aHum|
|00001fc0| 61 6e 43 61 72 64 28 64 | 75 6d 6d 79 29 2e 72 65 |anCard(d|ummy).re|
|00001fd0| 66 72 65 73 68 00 00 00 | 73 72 63 6c 53 74 72 6e |fresh...|srclStrn|
|00001fe0| 00 00 00 1b 67 69 76 65 | 43 6f 6d 70 75 74 65 72 |....give|Computer|
|00001ff0| 20 28 74 68 65 44 65 63 | 6b 2e 64 65 61 6c 29 00 | (theDec|k.deal).|
|00002000| 73 72 63 6c 53 74 72 6e | 00 00 00 05 64 65 6c 61 |srclStrn|....dela|
|00002010| 79 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 04 |y...srcl|Strn....|
|00002020| 6e 65 78 74 73 72 63 6c | 53 74 72 6e 00 00 00 00 |nextsrcl|Strn....|
|00002030| 73 72 63 6c 53 74 72 6e | 00 00 00 1a 73 74 61 74 |srclStrn|....stat|
|00002040| 65 20 3d 20 22 68 75 6d | 61 6e 53 74 61 72 74 41 |e = "hum|anStartA|
|00002050| 74 74 61 63 6b 22 00 00 | 73 72 63 6c 53 74 72 6e |ttack"..|srclStrn|
|00002060| 00 00 00 19 74 72 75 6d | 70 20 3d 20 74 72 75 6d |....trum|p = trum|
|00002070| 70 63 61 72 64 2e 67 65 | 74 53 75 69 74 00 00 00 |pcard.ge|tSuit...|
|00002080| 73 72 63 6c 53 74 72 6e | 00 00 00 10 67 61 6d 65 |srclStrn|....game|
|00002090| 6f 76 65 72 20 3d 20 66 | 61 6c 73 65 73 72 63 6c |over = f|alsesrcl|
|000020a0| 53 74 72 6e 00 00 00 00 | 73 72 63 6c 53 74 72 6e |Strn....|srclStrn|
|000020b0| 00 00 00 3f 73 61 79 20 | 74 69 74 6c 65 63 61 73 |...?say |titlecas|
|000020c0| 65 28 74 72 75 6d 70 29 | 20 2b 20 22 73 20 61 72 |e(trump)| + "s ar|
|000020d0| 65 20 74 72 75 6d 70 2e | 20 59 6f 75 20 61 74 74 |e trump.| You att|
|000020e0| 61 63 6b 21 20 43 6c 69 | 63 6b 20 61 20 63 61 72 |ack! Cli|ck a car|
|000020f0| 64 2e 22 00 73 72 63 6c | 53 74 72 6e 00 00 00 07 |d.".srcl|Strn....|
|00002100| 45 6e 64 20 53 75 62 00 | 45 6e 64 47 49 6e 74 20 |End Sub.|EndGInt |
|00002110| 00 00 00 28 45 6e 64 47 | 49 6e 74 20 00 00 00 27 |...(EndG|Int ...'|
|00002120| 4d 65 74 68 47 72 75 70 | 00 00 01 58 00 00 00 29 |MethGrup|...X...)|
|00002130| 6e 61 6d 65 53 74 72 6e | 00 00 00 0c 67 69 76 65 |nameStrn|....give|
|00002140| 43 6f 6d 70 75 74 65 72 | 70 61 72 6d 53 74 72 6e |Computer|parmStrn|
|00002150| 00 00 00 09 63 20 61 73 | 20 63 61 72 64 00 00 00 |....c as| card...|
|00002160| 72 73 6c 74 53 74 72 6e | 00 00 00 00 66 6c 61 67 |rsltStrn|....flag|
|00002170| 49 6e 74 20 00 00 00 00 | 73 6f 72 63 47 72 75 70 |Int ....|sorcGrup|
|00002180| 00 00 00 f4 00 00 00 2a | 73 74 73 72 49 6e 74 20 |.......*|stsrInt |
|00002190| 00 00 00 01 73 74 73 63 | 49 6e 74 20 00 00 00 07 |....stsc|Int ....|
|000021a0| 6e 64 73 72 49 6e 74 20 | 00 00 00 01 6e 64 73 63 |ndsrInt |....ndsc|
|000021b0| 49 6e 74 20 00 00 00 0a | 73 72 63 6c 53 74 72 6e |Int ....|srclStrn|
|000021c0| 00 00 00 1b 53 75 62 20 | 67 69 76 65 43 6f 6d 70 |....Sub |giveComp|
|000021d0| 75 74 65 72 28 63 20 61 | 73 20 63 61 72 64 29 00 |uter(c a|s card).|
|000021e0| 73 72 63 6c 53 74 72 6e | 00 00 00 0f 69 66 20 63 |srclStrn|....if c|
|000021f0| 20 3d 20 6e 69 6c 20 74 | 68 65 6e 00 73 72 63 6c | = nil t|hen.srcl|
|00002200| 53 74 72 6e 00 00 00 06 | 72 65 74 75 72 6e 00 00 |Strn....|return..|
|00002210| 73 72 63 6c 53 74 72 6e | 00 00 00 03 65 6e 64 00 |srclStrn|....end.|
|00002220| 73 72 63 6c 53 74 72 6e | 00 00 00 11 63 6f 6d 70 |srclStrn|....comp|
|00002230| 75 74 65 72 2e 61 70 70 | 65 6e 64 20 63 00 00 00 |uter.app|end c...|
|00002240| 73 72 63 6c 53 74 72 6e | 00 00 00 17 63 6f 6d 70 |srclStrn|....comp|
|00002250| 75 74 65 72 43 6f 75 6e | 74 2e 69 6e 63 72 65 6d |uterCoun|t.increm|
|00002260| 65 6e 74 00 73 72 63 6c | 53 74 72 6e 00 00 00 07 |ent.srcl|Strn....|
|00002270| 45 6e 64 20 53 75 62 00 | 45 6e 64 47 49 6e 74 20 |End Sub.|EndGInt |
|00002280| 00 00 00 2a 45 6e 64 47 | 49 6e 74 20 00 00 00 29 |...*EndG|Int ...)|
|00002290| 4d 65 74 68 47 72 75 70 | 00 00 02 a8 00 00 00 2b |MethGrup|.......+|
|000022a0| 6e 61 6d 65 53 74 72 6e | 00 00 00 0d 74 61 6b 65 |nameStrn|....take|
|000022b0| 46 72 6f 6d 48 75 6d 61 | 6e 00 00 00 70 61 72 6d |FromHuma|n...parm|
|000022c0| 53 74 72 6e 00 00 00 10 | 77 68 69 63 68 20 61 73 |Strn....|which as|
|000022d0| 20 69 6e 74 65 67 65 72 | 72 73 6c 74 53 74 72 6e | integer|rsltStrn|
|000022e0| 00 00 00 04 63 61 72 64 | 66 6c 61 67 49 6e 74 20 |....card|flagInt |
|000022f0| 00 00 00 00 73 6f 72 63 | 47 72 75 70 00 00 02 38 |....sorc|Grup...8|
|00002300| 00 00 00 2c 73 74 73 72 | 49 6e 74 20 00 00 00 06 |...,stsr|Int ....|
|00002310| 73 74 73 63 49 6e 74 20 | 00 00 00 3a 6e 64 73 72 |stscInt |...:ndsr|
|00002320| 49 6e 74 20 00 00 00 06 | 6e 64 73 63 49 6e 74 20 |Int ....|ndscInt |
|00002330| 00 00 00 3d 73 72 63 6c | 53 74 72 6e 00 00 00 30 |...=srcl|Strn...0|
|00002340| 46 75 6e 63 74 69 6f 6e | 20 74 61 6b 65 46 72 6f |Function| takeFro|
|00002350| 6d 48 75 6d 61 6e 28 77 | 68 69 63 68 20 61 73 20 |mHuman(w|hich as |
|00002360| 69 6e 74 65 67 65 72 29 | 20 41 73 20 63 61 72 64 |integer)| As card|
|00002370| 73 72 63 6c 53 74 72 6e | 00 00 00 12 64 69 6d 20 |srclStrn|....dim |
|00002380| 69 2c 6a 20 61 73 20 69 | 6e 74 65 67 65 72 00 00 |i,j as i|nteger..|
|00002390| 73 72 63 6c 53 74 72 6e | 00 00 00 11 64 69 6d 20 |srclStrn|....dim |
|000023a0| 63 74 65 6d 70 20 61 73 | 20 63 61 72 64 00 00 00 |ctemp as| card...|
|000023b0| 73 72 63 6c 53 74 72 6e | 00 00 00 00 73 72 63 6c |srclStrn|....srcl|
|000023c0| 53 74 72 6e 00 00 00 09 | 69 20 3d 20 77 68 69 63 |Strn....|i = whic|
|000023d0| 68 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 1d |h...srcl|Strn....|
|000023e0| 63 74 65 6d 70 20 3d 20 | 61 48 75 6d 61 6e 43 61 |ctemp = |aHumanCa|
|000023f0| 72 64 28 69 29 2e 67 65 | 74 43 61 72 64 00 00 00 |rd(i).ge|tCard...|
|00002400| 73 72 63 6c 53 74 72 6e | 00 00 00 3d 77 68 69 6c |srclStrn|...=whil|
|00002410| 65 20 61 48 75 6d 61 6e | 43 61 72 64 28 69 2b 31 |e aHuman|Card(i+1|
|00002420| 29 20 3c 3e 20 6e 69 6c | 20 61 6e 64 20 61 48 75 |) <> nil| and aHu|
|00002430| 6d 61 6e 43 61 72 64 28 | 69 29 2e 67 65 74 43 61 |manCard(|i).getCa|
|00002440| 72 64 20 3c 3e 20 6e 69 | 6c 00 00 00 73 72 63 6c |rd <> ni|l...srcl|
|00002450| 53 74 72 6e 00 00 00 2d | 61 48 75 6d 61 6e 43 61 |Strn...-|aHumanCa|
|00002460| 72 64 28 69 29 2e 73 65 | 74 43 61 72 64 20 61 48 |rd(i).se|tCard aH|
|00002470| 75 6d 61 6e 43 61 72 64 | 28 69 2b 31 29 2e 67 65 |umanCard|(i+1).ge|
|00002480| 74 43 61 72 64 00 00 00 | 73 72 63 6c 53 74 72 6e |tCard...|srclStrn|
|00002490| 00 00 00 1c 61 48 75 6d | 61 6e 43 61 72 64 28 69 |....aHum|anCard(i|
|000024a0| 29 2e 68 69 64 64 65 6e | 20 3d 20 66 61 6c 73 65 |).hidden| = false|
|000024b0| 73 72 63 6c 53 74 72 6e | 00 00 00 15 61 48 75 6d |srclStrn|....aHum|
|000024c0| 61 6e 43 61 72 64 28 69 | 29 2e 72 65 66 72 65 73 |anCard(i|).refres|
|000024d0| 68 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 09 |h...srcl|Strn....|
|000024e0| 69 20 3d 20 69 20 2b 20 | 31 00 00 00 73 72 63 6c |i = i + |1...srcl|
|000024f0| 53 74 72 6e 00 00 00 04 | 77 65 6e 64 73 72 63 6c |Strn....|wendsrcl|
|00002500| 53 74 72 6e 00 00 00 00 | 73 72 63 6c 53 74 72 6e |Strn....|srclStrn|
|00002510| 00 00 00 0c 72 65 74 75 | 72 6e 20 63 74 65 6d 70 |....retu|rn ctemp|
|00002520| 73 72 63 6c 53 74 72 6e | 00 00 00 0c 45 6e 64 20 |srclStrn|....End |
|00002530| 46 75 6e 63 74 69 6f 6e | 45 6e 64 47 49 6e 74 20 |Function|EndGInt |
|00002540| 00 00 00 2c 45 6e 64 47 | 49 6e 74 20 00 00 00 2b |...,EndG|Int ...+|
|00002550| 4d 65 74 68 47 72 75 70 | 00 00 0d 74 00 00 00 2d |MethGrup|...t...-|
|00002560| 6e 61 6d 65 53 74 72 6e | 00 00 00 10 68 75 6d 61 |nameStrn|....huma|
|00002570| 6e 57 61 6e 74 73 54 6f | 50 6c 61 79 70 61 72 6d |nWantsTo|Playparm|
|00002580| 53 74 72 6e 00 00 00 0c | 69 20 61 73 20 69 6e 74 |Strn....|i as int|
|00002590| 65 67 65 72 72 73 6c 74 | 53 74 72 6e 00 00 00 00 |egerrslt|Strn....|
|000025a0| 66 6c 61 67 49 6e 74 20 | 00 00 00 00 73 6f 72 63 |flagInt |....sorc|
|000025b0| 47 72 75 70 00 00 0d 0c | 00 00 00 2e 73 74 73 72 |Grup....|....stsr|
|000025c0| 49 6e 74 20 00 00 00 37 | 73 74 73 63 49 6e 74 20 |Int ...7|stscInt |
|000025d0| 00 00 00 1e 6e 64 73 72 | 49 6e 74 20 00 00 00 37 |....ndsr|Int ...7|
|000025e0| 6e 64 73 63 49 6e 74 20 | 00 00 00 21 73 72 63 6c |ndscInt |...!srcl|
|000025f0| 53 74 72 6e 00 00 00 22 | 53 75 62 20 68 75 6d 61 |Strn..."|Sub huma|
|00002600| 6e 57 61 6e 74 73 54 6f | 50 6c 61 79 28 69 20 61 |nWantsTo|Play(i a|
|00002610| 73 20 69 6e 74 65 67 65 | 72 29 00 00 73 72 63 6c |s intege|r)..srcl|
|00002620| 53 74 72 6e 00 00 00 10 | 64 69 6d 20 6a 20 61 73 |Strn....|dim j as|
|00002630| 20 69 6e 74 65 67 65 72 | 73 72 63 6c 53 74 72 6e | integer|srclStrn|
|00002640| 00 00 00 11 64 69 6d 20 | 64 75 6d 6d 79 20 61 73 |....dim |dummy as|
|00002650| 20 63 61 72 64 00 00 00 | 73 72 63 6c 53 74 72 6e | card...|srclStrn|
|00002660| 00 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 10 |....srcl|Strn....|
|00002670| 69 66 20 67 61 6d 65 6f | 76 65 72 20 74 68 65 6e |if gameo|ver then|
|00002680| 73 72 63 6c 53 74 72 6e | 00 00 00 04 62 65 65 70 |srclStrn|....beep|
|00002690| 73 72 63 6c 53 74 72 6e | 00 00 00 06 72 65 74 75 |srclStrn|....retu|
|000026a0| 72 6e 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 03 |rn..srcl|Strn....|
|000026b0| 65 6e 64 00 73 72 63 6c | 53 74 72 6e 00 00 00 00 |end.srcl|Strn....|
|000026c0| 73 72 63 6c 53 74 72 6e | 00 00 00 43 69 66 20 73 |srclStrn|...Cif s|
|000026d0| 74 61 74 65 20 3d 20 22 | 68 75 6d 61 6e 53 74 61 |tate = "|humanSta|
|000026e0| 72 74 41 74 74 61 63 6b | 22 20 6f 72 20 73 74 61 |rtAttack|" or sta|
|000026f0| 74 65 20 3d 20 22 68 75 | 6d 61 6e 43 6f 6e 74 69 |te = "hu|manConti|
|00002700| 6e 75 65 41 74 74 61 63 | 6b 22 20 74 68 65 6e 00 |nueAttac|k" then.|
|00002710| 73 72 63 6c 53 74 72 6e | 00 00 00 22 69 66 20 73 |srclStrn|..."if s|
|00002720| 74 61 74 65 20 3d 20 22 | 68 75 6d 61 6e 53 74 61 |tate = "|humanSta|
|00002730| 72 74 41 74 74 61 63 6b | 22 20 74 68 65 6e 00 00 |rtAttack|" then..|
|00002740| 73 72 63 6c 53 74 72 6e | 00 00 00 2f 2f 2f 20 61 |srclStrn|.../// a|
|00002750| 6e 79 74 68 69 6e 67 20 | 69 73 20 6c 65 67 61 6c |nything |is legal|
|00002760| 2c 20 74 61 6b 65 20 6e | 6f 74 65 20 6f 66 20 61 |, take n|ote of a|
|00002770| 74 74 61 63 6b 20 6c 69 | 6d 69 74 00 73 72 63 6c |ttack li|mit.srcl|
|00002780| 53 74 72 6e 00 00 00 2e | 64 65 66 65 6e 64 65 72 |Strn....|defender|
|00002790| 53 74 61 72 74 65 64 57 | 69 74 68 20 3d 20 6d 69 |StartedW|ith = mi|
|000027a0| 6e 28 36 2c 20 75 62 6f | 75 6e 64 28 63 6f 6d 70 |n(6, ubo|und(comp|
|000027b0| 75 74 65 72 29 29 00 00 | 73 72 63 6c 53 74 72 6e |uter))..|srclStrn|
|000027c0| 00 00 00 25 65 6c 73 65 | 20 2f 2f 20 73 74 61 74 |...%else| // stat|
|000027d0| 65 20 3d 20 22 68 75 6d | 61 6e 43 6f 6e 74 69 6e |e = "hum|anContin|
|000027e0| 75 65 41 74 74 61 63 6b | 22 00 00 00 73 72 63 6c |ueAttack|"...srcl|
|000027f0| 53 74 72 6e 00 00 00 21 | 2f 2f 20 72 61 6e 6b 20 |Strn...!|// rank |
|00002800| 6d 75 73 74 20 6d 61 74 | 63 68 20 61 20 76 69 73 |must mat|ch a vis|
|00002810| 69 62 6c 65 20 72 61 6e | 6b 00 00 00 73 72 63 6c |ible ran|k...srcl|
|00002820| 53 74 72 6e 00 00 00 30 | 69 66 20 6e 6f 74 20 69 |Strn...0|if not i|
|00002830| 73 4c 65 67 61 6c 41 74 | 74 61 63 6b 28 61 48 75 |sLegalAt|tack(aHu|
|00002840| 6d 61 6e 43 61 72 64 28 | 69 29 2e 67 65 74 52 61 |manCard(|i).getRa|
|00002850| 6e 6b 29 20 74 68 65 6e | 73 72 63 6c 53 74 72 6e |nk) then|srclStrn|
|00002860| 00 00 00 04 62 65 65 70 | 73 72 63 6c 53 74 72 6e |....beep|srclStrn|
|00002870| 00 00 00 72 73 61 79 20 | 22 59 6f 75 20 63 61 6e |...rsay |"You can|
|00002880| 20 61 74 74 61 63 6b 20 | 6f 6e 6c 79 20 77 69 74 | attack |only wit|
|00002890| 68 20 61 20 63 61 72 64 | 20 74 68 61 74 20 6d 61 |h a card| that ma|
|000028a0| 74 63 68 65 73 20 61 20 | 72 61 6e 6b 20 69 6e 20 |tches a |rank in |
|000028b0| 70 6c 61 79 2e 20 41 74 | 74 61 63 6b 2c 20 6f 72 |play. At|tack, or|
|000028c0| 20 70 72 65 73 73 20 62 | 75 74 74 6f 6e 20 74 6f | press b|utton to|
|000028d0| 20 64 65 63 6c 61 72 65 | 20 61 74 74 61 63 6b 20 | declare| attack |
|000028e0| 6f 76 65 72 2e 22 00 00 | 73 72 63 6c 53 74 72 6e |over."..|srclStrn|
|000028f0| 00 00 00 06 72 65 74 75 | 72 6e 00 00 73 72 63 6c |....retu|rn..srcl|
|00002900| 53 74 72 6e 00 00 00 03 | 65 6e 64 00 73 72 63 6c |Strn....|end.srcl|
|00002910| 53 74 72 6e 00 00 00 03 | 65 6e 64 00 73 72 63 6c |Strn....|end.srcl|
|00002920| 53 74 72 6e 00 00 00 33 | 2f 2f 20 62 6f 74 68 20 |Strn...3|// both |
|00002930| 63 61 73 65 73 20 6e 6f | 77 20 74 68 65 20 73 61 |cases no|w the sa|
|00002940| 6d 65 3a 20 70 6c 61 79 | 20 74 68 65 20 72 65 71 |me: play| the req|
|00002950| 75 65 73 74 65 64 20 63 | 61 72 64 00 73 72 63 6c |uested c|ard.srcl|
|00002960| 53 74 72 6e 00 00 00 18 | 68 75 6d 61 6e 50 6c 61 |Strn....|humanPla|
|00002970| 79 28 61 48 75 6d 61 6e | 43 61 72 64 28 69 29 29 |y(aHuman|Card(i))|
|00002980| 73 72 63 6c 53 74 72 6e | 00 00 00 18 64 75 6d 6d |srclStrn|....dumm|
|00002990| 79 20 3d 20 74 61 6b 65 | 46 72 6f 6d 48 75 6d 61 |y = take|FromHuma|
|000029a0| 6e 28 69 29 73 72 63 6c | 53 74 72 6e 00 00 00 12 |n(i)srcl|Strn....|
|000029b0| 69 66 20 69 73 47 61 6d | 65 4f 76 65 72 20 74 68 |if isGam|eOver th|
|000029c0| 65 6e 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 06 |en..srcl|Strn....|
|000029d0| 72 65 74 75 72 6e 00 00 | 73 72 63 6c 53 74 72 6e |return..|srclStrn|
|000029e0| 00 00 00 03 65 6e 64 00 | 73 72 63 6c 53 74 72 6e |....end.|srclStrn|
|000029f0| 00 00 00 05 64 65 6c 61 | 79 00 00 00 73 72 63 6c |....dela|y...srcl|
|00002a00| 53 74 72 6e 00 00 00 16 | 69 66 20 63 6f 6d 70 75 |Strn....|if compu|
|00002a10| 74 65 72 44 65 66 65 6e | 64 20 74 68 65 6e 00 00 |terDefen|d then..|
|00002a20| 73 72 63 6c 53 74 72 6e | 00 00 00 12 69 66 20 69 |srclStrn|....if i|
|00002a30| 73 47 61 6d 65 4f 76 65 | 72 20 74 68 65 6e 00 00 |sGameOve|r then..|
|00002a40| 73 72 63 6c 53 74 72 6e | 00 00 00 06 72 65 74 75 |srclStrn|....retu|
|00002a50| 72 6e 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 03 |rn..srcl|Strn....|
|00002a60| 65 6e 64 00 73 72 63 6c | 53 74 72 6e 00 00 00 27 |end.srcl|Strn...'|
|00002a70| 69 66 20 66 75 6c 6c 79 | 44 65 66 65 6e 64 65 64 |if fully|Defended|
|00002a80| 20 74 68 65 6e 20 2f 2f | 20 61 74 74 61 63 6b 20 | then //| attack |
|00002a90| 69 73 20 6f 76 65 72 00 | 73 72 63 6c 53 74 72 6e |is over.|srclStrn|
|00002aa0| 00 00 00 34 73 61 79 20 | 22 43 6f 6d 70 75 74 65 |...4say |"Compute|
|00002ab0| 72 20 68 61 73 20 66 75 | 6c 6c 79 20 64 65 66 65 |r has fu|lly defe|
|00002ac0| 6e 64 65 64 3b 20 74 68 | 65 20 62 6f 75 74 20 69 |nded; th|e bout i|
|00002ad0| 73 20 6f 76 65 72 2e 22 | 73 72 63 6c 53 74 72 6e |s over."|srclStrn|
|00002ae0| 00 00 00 05 64 65 6c 61 | 79 00 00 00 73 72 63 6c |....dela|y...srcl|
|00002af0| 53 74 72 6e 00 00 00 0a | 63 6c 65 61 72 50 6c 61 |Strn....|clearPla|
|00002b00| 79 73 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 09 |ys..srcl|Strn....|
|00002b10| 68 75 6d 61 6e 44 72 61 | 77 00 00 00 73 72 63 6c |humanDra|w...srcl|
|00002b20| 53 74 72 6e 00 00 00 0c | 63 6f 6d 70 75 74 65 72 |Strn....|computer|
|00002b30| 44 72 61 77 73 72 63 6c | 53 74 72 6e 00 00 00 1a |Drawsrcl|Strn....|
|00002b40| 73 74 61 74 65 20 3d 20 | 22 68 75 6d 61 6e 53 74 |state = |"humanSt|
|00002b50| 61 72 74 44 65 66 65 6e | 64 22 00 00 73 72 63 6c |artDefen|d"..srcl|
|00002b60| 53 74 72 6e 00 00 00 0e | 63 6f 6d 70 75 74 65 72 |Strn....|computer|
|00002b70| 41 74 74 61 63 6b 00 00 | 73 72 63 6c 53 74 72 6e |Attack..|srclStrn|
|00002b80| 00 00 00 21 65 6c 73 65 | 20 2f 2f 20 6c 65 74 20 |...!else| // let |
|00002b90| 68 75 6d 61 6e 20 63 6f | 6e 74 69 6e 75 65 20 61 |human co|ntinue a|
|00002ba0| 74 74 61 63 6b 00 00 00 | 73 72 63 6c 53 74 72 6e |ttack...|srclStrn|
|00002bb0| 00 00 00 1c 64 6f 6e 65 | 41 74 74 61 63 6b 69 6e |....done|Attackin|
|00002bc0| 67 2e 65 6e 61 62 6c 65 | 64 20 3d 20 74 72 75 65 |g.enable|d = true|
|00002bd0| 73 72 63 6c 53 74 72 6e | 00 00 00 54 73 61 79 20 |srclStrn|...Tsay |
|00002be0| 22 50 72 65 73 73 20 62 | 75 74 74 6f 6e 20 74 6f |"Press b|utton to|
|00002bf0| 20 64 65 63 6c 61 72 65 | 20 61 74 74 61 63 6b 20 | declare| attack |
|00002c00| 6f 76 65 72 2c 20 6f 72 | 20 63 6f 6e 74 69 6e 75 |over, or| continu|
|00002c10| 65 20 61 74 74 61 63 6b | 20 77 69 74 68 20 61 6e |e attack| with an|
|00002c20| 79 20 72 61 6e 6b 20 69 | 6e 20 70 6c 61 79 2e 22 |y rank i|n play."|
|00002c30| 73 72 63 6c 53 74 72 6e | 00 00 00 1d 73 74 61 74 |srclStrn|....stat|
|00002c40| 65 20 3d 20 22 68 75 6d | 61 6e 43 6f 6e 74 69 6e |e = "hum|anContin|
|00002c50| 75 65 41 74 74 61 63 6b | 22 00 00 00 73 72 63 6c |ueAttack|"...srcl|
|00002c60| 53 74 72 6e 00 00 00 03 | 65 6e 64 00 73 72 63 6c |Strn....|end.srcl|
|00002c70| 53 74 72 6e 00 00 00 1f | 65 6c 73 65 20 2f 2f 20 |Strn....|else // |
|00002c80| 63 6f 6d 70 75 74 65 72 | 20 63 61 6e 6e 6f 74 20 |computer| cannot |
|00002c90| 64 65 66 65 6e 64 20 00 | 73 72 63 6c 53 74 72 6e |defend .|srclStrn|
|00002ca0| 00 00 00 5e 73 61 79 20 | 22 43 6f 6d 70 75 74 65 |...^say |"Compute|
|00002cb0| 72 20 64 6f 65 73 20 6e | 6f 74 20 64 65 66 65 6e |r does n|ot defen|
|00002cc0| 64 2e 20 43 6f 6d 70 75 | 74 65 72 20 73 77 61 6c |d. Compu|ter swal|
|00002cd0| 6c 6f 77 73 20 61 6c 6c | 20 63 61 72 64 73 20 69 |lows all| cards i|
|00002ce0| 6e 20 70 6c 61 79 2e 20 | 59 6f 75 20 61 74 74 61 |n play. |You atta|
|00002cf0| 63 6b 21 20 43 6c 69 63 | 6b 20 61 20 63 61 72 64 |ck! Clic|k a card|
|00002d00| 2e 22 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 0f |."..srcl|Strn....|
|00002d10| 63 6f 6d 70 75 74 65 72 | 53 77 61 6c 6c 6f 77 00 |computer|Swallow.|
|00002d20| 73 72 63 6c 53 74 72 6e | 00 00 00 09 68 75 6d 61 |srclStrn|....huma|
|00002d30| 6e 44 72 61 77 00 00 00 | 73 72 63 6c 53 74 72 6e |nDraw...|srclStrn|
|00002d40| 00 00 00 1a 73 74 61 74 | 65 20 3d 20 22 68 75 6d |....stat|e = "hum|
|00002d50| 61 6e 53 74 61 72 74 41 | 74 74 61 63 6b 22 00 00 |anStartA|ttack"..|
|00002d60| 73 72 63 6c 53 74 72 6e | 00 00 00 03 65 6e 64 00 |srclStrn|....end.|
|00002d70| 73 72 63 6c 53 74 72 6e | 00 00 00 00 73 72 63 6c |srclStrn|....srcl|
|00002d80| 53 74 72 6e 00 00 00 21 | 65 6c 73 65 69 66 20 73 |Strn...!|elseif s|
|00002d90| 74 61 74 65 20 3d 20 22 | 68 75 6d 61 6e 44 65 66 |tate = "|humanDef|
|00002da0| 65 6e 64 22 20 74 68 65 | 6e 00 00 00 73 72 63 6c |end" the|n...srcl|
|00002db0| 53 74 72 6e 00 00 00 17 | 2f 2f 20 66 69 6e 64 20 |Strn....|// find |
|00002dc0| 74 68 65 20 61 74 74 61 | 63 6b 20 63 61 72 64 00 |the atta|ck card.|
|00002dd0| 73 72 63 6c 53 74 72 6e | 00 00 00 0e 66 6f 72 20 |srclStrn|....for |
|00002de0| 6a 20 3d 20 30 20 74 6f | 20 35 00 00 73 72 63 6c |j = 0 to| 5..srcl|
|00002df0| 53 74 72 6e 00 00 00 26 | 69 66 20 61 43 6f 6d 70 |Strn...&|if aComp|
|00002e00| 75 74 65 72 50 6c 61 79 | 28 6a 29 2e 67 65 74 43 |uterPlay|(j).getC|
|00002e10| 61 72 64 20 3d 20 6e 69 | 6c 20 74 68 65 6e 00 00 |ard = ni|l then..|
|00002e20| 73 72 63 6c 53 74 72 6e | 00 00 00 04 65 78 69 74 |srclStrn|....exit|
|00002e30| 73 72 63 6c 53 74 72 6e | 00 00 00 03 65 6e 64 00 |srclStrn|....end.|
|00002e40| 73 72 63 6c 53 74 72 6e | 00 00 00 04 6e 65 78 74 |srclStrn|....next|
|00002e50| 73 72 63 6c 53 74 72 6e | 00 00 00 09 6a 20 3d 20 |srclStrn|....j = |
|00002e60| 6a 20 2d 20 31 00 00 00 | 73 72 63 6c 53 74 72 6e |j - 1...|srclStrn|
|00002e70| 00 00 00 3b 2f 2f 20 72 | 61 6e 6b 20 6d 75 73 74 |...;// r|ank must|
|00002e80| 20 62 65 20 68 69 67 68 | 65 72 20 61 6e 64 20 73 | be high|er and s|
|00002e90| 61 6d 65 20 73 75 69 74 | 2c 20 6f 72 20 73 75 69 |ame suit|, or sui|
|00002ea0| 74 20 6d 75 73 74 20 62 | 65 20 74 72 75 6d 70 00 |t must b|e trump.|
|00002eb0| 73 72 63 6c 53 74 72 6e | 00 00 00 c9 69 66 20 28 |srclStrn|....if (|
|00002ec0| 61 48 75 6d 61 6e 43 61 | 72 64 28 69 29 2e 67 65 |aHumanCa|rd(i).ge|
|00002ed0| 74 53 75 69 74 20 3d 20 | 61 43 6f 6d 70 75 74 65 |tSuit = |aCompute|
|00002ee0| 72 50 6c 61 79 28 6a 29 | 2e 67 65 74 53 75 69 74 |rPlay(j)|.getSuit|
|00002ef0| 20 61 6e 64 20 61 48 75 | 6d 61 6e 43 61 72 64 28 | and aHu|manCard(|
|00002f00| 69 29 2e 67 65 74 52 61 | 6e 6b 20 3c 20 61 43 6f |i).getRa|nk < aCo|
|00002f10| 6d 70 75 74 65 72 50 6c | 61 79 28 6a 29 2e 67 65 |mputerPl|ay(j).ge|
|00002f20| 74 52 61 6e 6b 29 20 6f | 72 20 28 61 48 75 6d 61 |tRank) o|r (aHuma|
|00002f30| 6e 43 61 72 64 28 69 29 | 2e 67 65 74 53 75 69 74 |nCard(i)|.getSuit|
|00002f40| 20 3c 3e 20 61 43 6f 6d | 70 75 74 65 72 50 6c 61 | <> aCom|puterPla|
|00002f50| 79 28 6a 29 2e 67 65 74 | 53 75 69 74 20 61 6e 64 |y(j).get|Suit and|
|00002f60| 20 61 48 75 6d 61 6e 43 | 61 72 64 28 69 29 2e 67 | aHumanC|ard(i).g|
|00002f70| 65 74 53 75 69 74 20 3c | 3e 20 74 72 75 6d 70 29 |etSuit <|> trump)|
|00002f80| 20 74 68 65 6e 00 00 00 | 73 72 63 6c 53 74 72 6e | then...|srclStrn|
|00002f90| 00 00 00 04 62 65 65 70 | 73 72 63 6c 53 74 72 6e |....beep|srclStrn|
|00002fa0| 00 00 00 3d 73 61 79 20 | 22 44 65 66 65 6e 64 20 |...=say |"Defend |
|00002fb0| 77 69 74 68 20 61 20 68 | 69 67 68 65 72 20 63 61 |with a h|igher ca|
|00002fc0| 72 64 20 6f 66 20 74 68 | 65 20 73 61 6d 65 20 73 |rd of th|e same s|
|00002fd0| 75 69 74 2c 20 6f 72 20 | 61 20 74 72 75 6d 70 2e |uit, or |a trump.|
|00002fe0| 22 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 06 |"...srcl|Strn....|
|00002ff0| 72 65 74 75 72 6e 00 00 | 73 72 63 6c 53 74 72 6e |return..|srclStrn|
|00003000| 00 00 00 03 65 6e 64 00 | 73 72 63 6c 53 74 72 6e |....end.|srclStrn|
|00003010| 00 00 00 20 2f 2f 20 69 | 74 27 73 20 61 20 6c 65 |... // i|t's a le|
|00003020| 67 61 6c 20 64 65 66 65 | 6e 73 65 2c 20 70 6c 61 |gal defe|nse, pla|
|00003030| 79 20 69 74 73 72 63 6c | 53 74 72 6e 00 00 00 18 |y itsrcl|Strn....|
|00003040| 68 75 6d 61 6e 50 6c 61 | 79 28 61 48 75 6d 61 6e |humanPla|y(aHuman|
|00003050| 43 61 72 64 28 69 29 29 | 73 72 63 6c 53 74 72 6e |Card(i))|srclStrn|
|00003060| 00 00 00 18 64 75 6d 6d | 79 20 3d 20 74 61 6b 65 |....dumm|y = take|
|00003070| 46 72 6f 6d 48 75 6d 61 | 6e 28 69 29 73 72 63 6c |FromHuma|n(i)srcl|
|00003080| 53 74 72 6e 00 00 00 12 | 69 66 20 69 73 47 61 6d |Strn....|if isGam|
|00003090| 65 4f 76 65 72 20 74 68 | 65 6e 00 00 73 72 63 6c |eOver th|en..srcl|
|000030a0| 53 74 72 6e 00 00 00 06 | 72 65 74 75 72 6e 00 00 |Strn....|return..|
|000030b0| 73 72 63 6c 53 74 72 6e | 00 00 00 03 65 6e 64 00 |srclStrn|....end.|
|000030c0| 73 72 63 6c 53 74 72 6e | 00 00 00 15 69 66 20 66 |srclStrn|....if f|
|000030d0| 75 6c 6c 79 44 65 66 65 | 6e 64 65 64 20 74 68 65 |ullyDefe|nded the|
|000030e0| 6e 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 4c |n...srcl|Strn...L|
|000030f0| 73 61 79 20 22 59 6f 75 | 20 68 61 76 65 20 66 75 |say "You| have fu|
|00003100| 6c 6c 79 20 64 65 66 65 | 6e 64 65 64 3b 20 74 68 |lly defe|nded; th|
|00003110| 65 20 62 6f 75 74 20 69 | 73 20 6f 76 65 72 2e 20 |e bout i|s over. |
|00003120| 59 6f 75 20 61 74 74 61 | 63 6b 2e 20 43 6c 69 63 |You atta|ck. Clic|
|00003130| 6b 20 61 6e 79 20 63 61 | 72 64 2e 22 73 72 63 6c |k any ca|rd."srcl|
|00003140| 53 74 72 6e 00 00 00 05 | 64 65 6c 61 79 00 00 00 |Strn....|delay...|
|00003150| 73 72 63 6c 53 74 72 6e | 00 00 00 0a 63 6c 65 61 |srclStrn|....clea|
|00003160| 72 50 6c 61 79 73 00 00 | 73 72 63 6c 53 74 72 6e |rPlays..|srclStrn|
|00003170| 00 00 00 24 63 6f 6d 70 | 75 74 65 72 44 72 61 77 |...$comp|uterDraw|
|00003180| 20 2f 2f 20 61 74 74 61 | 63 6b 65 72 20 64 72 61 | // atta|cker dra|
|00003190| 77 73 20 66 69 72 73 74 | 73 72 63 6c 53 74 72 6e |ws first|srclStrn|
|000031a0| 00 00 00 09 68 75 6d 61 | 6e 44 72 61 77 00 00 00 |....huma|nDraw...|
|000031b0| 73 72 63 6c 53 74 72 6e | 00 00 00 1a 73 74 61 74 |srclStrn|....stat|
|000031c0| 65 20 3d 20 22 68 75 6d | 61 6e 53 74 61 72 74 41 |e = "hum|anStartA|
|000031d0| 74 74 61 63 6b 22 00 00 | 73 72 63 6c 53 74 72 6e |ttack"..|srclStrn|
|000031e0| 00 00 00 06 72 65 74 75 | 72 6e 00 00 73 72 63 6c |....retu|rn..srcl|
|000031f0| 53 74 72 6e 00 00 00 03 | 65 6e 64 00 73 72 63 6c |Strn....|end.srcl|
|00003200| 53 74 72 6e 00 00 00 46 | 2f 2f 20 68 75 6d 61 6e |Strn...F|// human|
|00003210| 20 68 61 73 20 6e 65 69 | 74 68 65 72 20 77 6f 6e | has nei|ther won|
|00003220| 20 6e 6f 72 20 66 75 6c | 6c 79 20 64 65 66 65 6e | nor ful|ly defen|
|00003230| 64 65 64 2c 20 63 6f 6d | 70 75 74 65 72 20 61 74 |ded, com|puter at|
|00003240| 74 61 63 6b 20 63 6f 6e | 74 69 6e 75 65 73 00 00 |tack con|tinues..|
|00003250| 73 72 63 6c 53 74 72 6e | 00 00 00 05 64 65 6c 61 |srclStrn|....dela|
|00003260| 79 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 2e |y...srcl|Strn....|
|00003270| 63 6f 6d 70 75 74 65 72 | 41 74 74 61 63 6b 20 2f |computer|Attack /|
|00003280| 2f 20 73 74 61 74 65 20 | 69 73 20 73 74 69 6c 6c |/ state |is still|
|00003290| 20 22 68 75 6d 61 6e 44 | 65 66 65 6e 64 22 00 00 | "humanD|efend"..|
|000032a0| 73 72 63 6c 53 74 72 6e | 00 00 00 03 65 6e 64 00 |srclStrn|....end.|
|000032b0| 73 72 63 6c 53 74 72 6e | 00 00 00 07 45 6e 64 20 |srclStrn|....End |
|000032c0| 53 75 62 00 45 6e 64 47 | 49 6e 74 20 00 00 00 2e |Sub.EndG|Int ....|
|000032d0| 45 6e 64 47 49 6e 74 20 | 00 00 00 2d 4d 65 74 68 |EndGInt |...-Meth|
|000032e0| 47 72 75 70 00 00 06 68 | 00 00 00 2f 6e 61 6d 65 |Grup...h|.../name|
|000032f0| 53 74 72 6e 00 00 00 0e | 63 6f 6d 70 75 74 65 72 |Strn....|computer|
|00003300| 44 65 66 65 6e 64 00 00 | 70 61 72 6d 53 74 72 6e |Defend..|parmStrn|
|00003310| 00 00 00 00 72 73 6c 74 | 53 74 72 6e 00 00 00 07 |....rslt|Strn....|
|00003320| 62 6f 6f 6c 65 61 6e 00 | 66 6c 61 67 49 6e 74 20 |boolean.|flagInt |
|00003330| 00 00 00 00 73 6f 72 63 | 47 72 75 70 00 00 06 04 |....sorc|Grup....|
|00003340| 00 00 00 30 73 74 73 72 | 49 6e 74 20 00 00 00 0b |...0stsr|Int ....|
|00003350| 73 74 73 63 49 6e 74 20 | 00 00 00 38 6e 64 73 72 |stscInt |...8ndsr|
|00003360| 49 6e 74 20 00 00 00 0b | 6e 64 73 63 49 6e 74 20 |Int ....|ndscInt |
|00003370| 00 00 00 3b 73 72 63 6c | 53 74 72 6e 00 00 00 24 |...;srcl|Strn...$|
|00003380| 46 75 6e 63 74 69 6f 6e | 20 63 6f 6d 70 75 74 65 |Function| compute|
|00003390| 72 44 65 66 65 6e 64 28 | 29 20 41 73 20 62 6f 6f |rDefend(|) As boo|
|000033a0| 6c 65 61 6e 73 72 63 6c | 53 74 72 6e 00 00 00 00 |leansrcl|Strn....|
|000033b0| 73 72 63 6c 53 74 72 6e | 00 00 00 15 2f 2f 20 68 |srclStrn|....// h|
|000033c0| 75 6d 61 6e 20 68 61 73 | 20 61 74 74 61 63 6b 65 |uman has| attacke|
|000033d0| 64 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 33 |d...srcl|Strn...3|
|000033e0| 2f 2f 20 72 65 74 75 72 | 6e 20 74 72 75 65 20 6f |// retur|n true o|
|000033f0| 72 20 66 61 6c 73 65 20 | 61 73 20 77 65 20 64 69 |r false |as we di|
|00003400| 64 20 6f 72 20 64 69 64 | 20 6e 6f 74 20 64 65 66 |d or did| not def|
|00003410| 65 6e 64 00 73 72 63 6c | 53 74 72 6e 00 00 00 00 |end.srcl|Strn....|
|00003420| 73 72 63 6c 53 74 72 6e | 00 00 00 18 64 69 6d 20 |srclStrn|....dim |
|00003430| 69 2c 75 2c 77 68 69 63 | 68 20 61 73 20 69 6e 74 |i,u,whic|h as int|
|00003440| 65 67 65 72 73 72 63 6c | 53 74 72 6e 00 00 00 24 |egersrcl|Strn...$|
|00003450| 64 69 6d 20 68 69 67 68 | 65 72 73 28 30 29 2c 20 |dim high|ers(0), |
|00003460| 74 72 75 6d 70 73 28 30 | 29 20 61 73 20 69 6e 74 |trumps(0|) as int|
|00003470| 65 67 65 72 73 72 63 6c | 53 74 72 6e 00 00 00 2b |egersrcl|Strn...+|
|00003480| 64 69 6d 20 77 68 61 74 | 73 75 69 74 20 61 73 20 |dim what|suit as |
|00003490| 73 74 72 69 6e 67 2c 20 | 77 68 61 74 72 61 6e 6b |string, |whatrank|
|000034a0| 20 61 73 20 69 6e 74 65 | 67 65 72 00 73 72 63 6c | as inte|ger.srcl|
|000034b0| 53 74 72 6e 00 00 00 20 | 64 69 6d 20 6d 69 6e 2c |Strn... |dim min,|
|000034c0| 20 74 68 65 4f 6e 65 54 | 6f 50 6c 61 79 20 61 73 | theOneT|oPlay as|
|000034d0| 20 69 6e 74 65 67 65 72 | 73 72 63 6c 53 74 72 6e | integer|srclStrn|
|000034e0| 00 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 2a |....srcl|Strn...*|
|000034f0| 2f 2f 20 66 69 6e 64 20 | 74 68 65 20 61 74 74 61 |// find |the atta|
|00003500| 63 6b 20 63 61 72 64 2c | 20 69 74 27 73 20 74 68 |ck card,| it's th|
|00003510| 65 20 6c 61 73 74 20 6f | 6e 65 00 00 73 72 63 6c |e last o|ne..srcl|
|00003520| 53 74 72 6e 00 00 00 3b | 77 68 69 6c 65 20 61 48 |Strn...;|while aH|
|00003530| 75 6d 61 6e 50 6c 61 79 | 28 69 29 20 3c 3e 20 6e |umanPlay|(i) <> n|
|00003540| 69 6c 20 61 6e 64 20 61 | 48 75 6d 61 6e 50 6c 61 |il and a|HumanPla|
|00003550| 79 28 69 29 2e 67 65 74 | 43 61 72 64 20 3c 3e 20 |y(i).get|Card <> |
|00003560| 6e 69 6c 00 73 72 63 6c | 53 74 72 6e 00 00 00 09 |nil.srcl|Strn....|
|00003570| 69 20 3d 20 69 20 2b 20 | 31 00 00 00 73 72 63 6c |i = i + |1...srcl|
|00003580| 53 74 72 6e 00 00 00 04 | 77 65 6e 64 73 72 63 6c |Strn....|wendsrcl|
|00003590| 53 74 72 6e 00 00 00 0d | 77 68 69 63 68 20 3d 20 |Strn....|which = |
|000035a0| 69 20 2d 20 31 00 00 00 | 73 72 63 6c 53 74 72 6e |i - 1...|srclStrn|
|000035b0| 00 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 24 |....srcl|Strn...$|
|000035c0| 77 68 61 74 73 75 69 74 | 20 3d 20 61 48 75 6d 61 |whatsuit| = aHuma|
|000035d0| 6e 50 6c 61 79 28 77 68 | 69 63 68 29 2e 67 65 74 |nPlay(wh|ich).get|
|000035e0| 73 75 69 74 73 72 63 6c | 53 74 72 6e 00 00 00 24 |suitsrcl|Strn...$|
|000035f0| 77 68 61 74 72 61 6e 6b | 20 3d 20 61 48 75 6d 61 |whatrank| = aHuma|
|00003600| 6e 50 6c 61 79 28 77 68 | 69 63 68 29 2e 67 65 74 |nPlay(wh|ich).get|
|00003610| 72 61 6e 6b 73 72 63 6c | 53 74 72 6e 00 00 00 00 |ranksrcl|Strn....|
|00003620| 73 72 63 6c 53 74 72 6e | 00 00 00 14 75 20 3d 20 |srclStrn|....u = |
|00003630| 75 62 6f 75 6e 64 28 63 | 6f 6d 70 75 74 65 72 29 |ubound(c|omputer)|
|00003640| 73 72 63 6c 53 74 72 6e | 00 00 00 19 2f 2f 20 6c |srclStrn|....// l|
|00003650| 69 73 74 20 61 6c 6c 20 | 6c 65 67 61 6c 20 72 65 |ist all |legal re|
|00003660| 70 6c 69 65 73 00 00 00 | 73 72 63 6c 53 74 72 6e |plies...|srclStrn|
|00003670| 00 00 00 0e 66 6f 72 20 | 69 20 3d 20 31 20 74 6f |....for |i = 1 to|
|00003680| 20 75 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 43 | u..srcl|Strn...C|
|00003690| 69 66 20 63 6f 6d 70 75 | 74 65 72 28 69 29 2e 73 |if compu|ter(i).s|
|000036a0| 75 69 74 20 3d 20 77 68 | 61 74 73 75 69 74 20 61 |uit = wh|atsuit a|
|000036b0| 6e 64 20 63 6f 6d 70 75 | 74 65 72 28 69 29 2e 72 |nd compu|ter(i).r|
|000036c0| 61 6e 6b 20 3e 20 77 68 | 61 74 72 61 6e 6b 20 74 |ank > wh|atrank t|
|000036d0| 68 65 6e 00 73 72 63 6c | 53 74 72 6e 00 00 00 10 |hen.srcl|Strn....|
|000036e0| 68 69 67 68 65 72 73 2e | 61 70 70 65 6e 64 20 69 |highers.|append i|
|000036f0| 73 72 63 6c 53 74 72 6e | 00 00 00 3a 65 6c 73 65 |srclStrn|...:else|
|00003700| 69 66 20 63 6f 6d 70 75 | 74 65 72 28 69 29 2e 73 |if compu|ter(i).s|
|00003710| 75 69 74 20 3d 20 74 72 | 75 6d 70 20 61 6e 64 20 |uit = tr|ump and |
|00003720| 77 68 61 74 73 75 69 74 | 20 3c 3e 20 74 72 75 6d |whatsuit| <> trum|
|00003730| 70 20 74 68 65 6e 00 00 | 73 72 63 6c 53 74 72 6e |p then..|srclStrn|
|00003740| 00 00 00 0f 74 72 75 6d | 70 73 2e 61 70 70 65 6e |....trum|ps.appen|
|00003750| 64 20 69 00 73 72 63 6c | 53 74 72 6e 00 00 00 03 |d i.srcl|Strn....|
|00003760| 65 6e 64 00 73 72 63 6c | 53 74 72 6e 00 00 00 04 |end.srcl|Strn....|
|00003770| 6e 65 78 74 73 72 63 6c | 53 74 72 6e 00 00 00 00 |nextsrcl|Strn....|
|00003780| 73 72 63 6c 53 74 72 6e | 00 00 00 32 69 66 20 75 |srclStrn|...2if u|
|00003790| 62 6f 75 6e 64 28 68 69 | 67 68 65 72 73 29 20 3d |bound(hi|ghers) =|
|000037a0| 20 30 20 61 6e 64 20 75 | 62 6f 75 6e 64 28 74 72 | 0 and u|bound(tr|
|000037b0| 75 6d 70 73 29 20 3d 20 | 30 20 74 68 65 6e 00 00 |umps) = |0 then..|
|000037c0| 73 72 63 6c 53 74 72 6e | 00 00 00 1a 72 65 74 75 |srclStrn|....retu|
|000037d0| 72 6e 20 66 61 6c 73 65 | 20 2f 2f 20 63 61 6e 27 |rn false| // can'|
|000037e0| 74 20 70 6c 61 79 00 00 | 73 72 63 6c 53 74 72 6e |t play..|srclStrn|
|000037f0| 00 00 00 03 65 6e 64 00 | 73 72 63 6c 53 74 72 6e |....end.|srclStrn|
|00003800| 00 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 35 |....srcl|Strn...5|
|00003810| 74 68 65 4f 6e 65 54 6f | 50 6c 61 79 20 3d 20 63 |theOneTo|Play = c|
|00003820| 6f 6d 70 75 74 65 72 44 | 65 63 69 64 65 44 65 66 |omputerD|ecideDef|
|00003830| 65 6e 73 65 28 68 69 67 | 68 65 72 73 2c 20 74 72 |ense(hig|hers, tr|
|00003840| 75 6d 70 73 29 00 00 00 | 73 72 63 6c 53 74 72 6e |umps)...|srclStrn|
|00003850| 00 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 2b |....srcl|Strn...+|
|00003860| 69 66 20 74 68 65 4f 6e | 65 54 6f 50 6c 61 79 20 |if theOn|eToPlay |
|00003870| 3e 20 2d 31 20 74 68 65 | 6e 20 2f 2f 20 77 65 20 |> -1 the|n // we |
|00003880| 61 72 65 20 74 6f 20 70 | 6c 61 79 00 73 72 63 6c |are to p|lay.srcl|
|00003890| 53 74 72 6e 00 00 00 2c | 63 6f 6d 70 75 74 65 72 |Strn...,|computer|
|000038a0| 50 6c 61 79 28 74 61 6b | 65 46 72 6f 6d 43 6f 6d |Play(tak|eFromCom|
|000038b0| 70 75 74 65 72 28 74 68 | 65 4f 6e 65 54 6f 50 6c |puter(th|eOneToPl|
|000038c0| 61 79 29 29 73 72 63 6c | 53 74 72 6e 00 00 00 0b |ay))srcl|Strn....|
|000038d0| 72 65 74 75 72 6e 20 74 | 72 75 65 00 73 72 63 6c |return t|rue.srcl|
|000038e0| 53 74 72 6e 00 00 00 19 | 65 6c 73 65 20 2f 2f 20 |Strn....|else // |
|000038f0| 77 65 20 61 72 65 20 74 | 6f 20 73 77 61 6c 6c 6f |we are t|o swallo|
|00003900| 77 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 0c |w...srcl|Strn....|
|00003910| 72 65 74 75 72 6e 20 66 | 61 6c 73 65 73 72 63 6c |return f|alsesrcl|
|00003920| 53 74 72 6e 00 00 00 03 | 65 6e 64 00 73 72 63 6c |Strn....|end.srcl|
|00003930| 53 74 72 6e 00 00 00 0c | 45 6e 64 20 46 75 6e 63 |Strn....|End Func|
|00003940| 74 69 6f 6e 45 6e 64 47 | 49 6e 74 20 00 00 00 30 |tionEndG|Int ...0|
|00003950| 45 6e 64 47 49 6e 74 20 | 00 00 00 2f 4d 65 74 68 |EndGInt |.../Meth|
|00003960| 47 72 75 70 00 00 01 a0 | 00 00 00 31 6e 61 6d 65 |Grup....|...1name|
|00003970| 53 74 72 6e 00 00 00 10 | 74 61 6b 65 46 72 6f 6d |Strn....|takeFrom|
|00003980| 43 6f 6d 70 75 74 65 72 | 70 61 72 6d 53 74 72 6e |Computer|parmStrn|
|00003990| 00 00 00 10 77 68 69 63 | 68 20 61 73 20 69 6e 74 |....whic|h as int|
|000039a0| 65 67 65 72 72 73 6c 74 | 53 74 72 6e 00 00 00 04 |egerrslt|Strn....|
|000039b0| 63 61 72 64 66 6c 61 67 | 49 6e 74 20 00 00 00 00 |cardflag|Int ....|
|000039c0| 73 6f 72 63 47 72 75 70 | 00 00 01 30 00 00 00 32 |sorcGrup|...0...2|
|000039d0| 73 74 73 72 49 6e 74 20 | 00 00 00 04 73 74 73 63 |stsrInt |....stsc|
|000039e0| 49 6e 74 20 00 00 00 00 | 6e 64 73 72 49 6e 74 20 |Int ....|ndsrInt |
|000039f0| 00 00 00 04 6e 64 73 63 | 49 6e 74 20 00 00 00 0d |....ndsc|Int ....|
|00003a00| 73 72 63 6c 53 74 72 6e | 00 00 00 33 46 75 6e 63 |srclStrn|...3Func|
|00003a10| 74 69 6f 6e 20 74 61 6b | 65 46 72 6f 6d 43 6f 6d |tion tak|eFromCom|
|00003a20| 70 75 74 65 72 28 77 68 | 69 63 68 20 61 73 20 69 |puter(wh|ich as i|
|00003a30| 6e 74 65 67 65 72 29 20 | 41 73 20 63 61 72 64 00 |nteger) |As card.|
|00003a40| 73 72 63 6c 53 74 72 6e | 00 00 00 11 64 69 6d 20 |srclStrn|....dim |
|00003a50| 63 74 65 6d 70 20 61 73 | 20 63 61 72 64 00 00 00 |ctemp as| card...|
|00003a60| 73 72 63 6c 53 74 72 6e | 00 00 00 17 63 74 65 6d |srclStrn|....ctem|
|00003a70| 70 20 3d 20 63 6f 6d 70 | 75 74 65 72 28 77 68 69 |p = comp|uter(whi|
|00003a80| 63 68 29 00 73 72 63 6c | 53 74 72 6e 00 00 00 15 |ch).srcl|Strn....|
|00003a90| 63 6f 6d 70 75 74 65 72 | 2e 72 65 6d 6f 76 65 20 |computer|.remove |
|00003aa0| 77 68 69 63 68 00 00 00 | 73 72 63 6c 53 74 72 6e |which...|srclStrn|
|00003ab0| 00 00 00 17 63 6f 6d 70 | 75 74 65 72 63 6f 75 6e |....comp|utercoun|
|00003ac0| 74 2e 64 65 63 72 65 6d | 65 6e 74 00 73 72 63 6c |t.decrem|ent.srcl|
|00003ad0| 53 74 72 6e 00 00 00 0c | 72 65 74 75 72 6e 20 63 |Strn....|return c|
|00003ae0| 74 65 6d 70 73 72 63 6c | 53 74 72 6e 00 00 00 0c |tempsrcl|Strn....|
|00003af0| 45 6e 64 20 46 75 6e 63 | 74 69 6f 6e 45 6e 64 47 |End Func|tionEndG|
|00003b00| 49 6e 74 20 00 00 00 32 | 45 6e 64 47 49 6e 74 20 |Int ...2|EndGInt |
|00003b10| 00 00 00 31 4d 65 74 68 | 47 72 75 70 00 00 02 14 |...1Meth|Grup....|
|00003b20| 00 00 00 33 6e 61 6d 65 | 53 74 72 6e 00 00 00 0c |...3name|Strn....|
|00003b30| 63 6f 6d 70 75 74 65 72 | 50 6c 61 79 70 61 72 6d |computer|Playparm|
|00003b40| 53 74 72 6e 00 00 00 09 | 63 20 61 73 20 63 61 72 |Strn....|c as car|
|00003b50| 64 00 00 00 72 73 6c 74 | 53 74 72 6e 00 00 00 00 |d...rslt|Strn....|
|00003b60| 66 6c 61 67 49 6e 74 20 | 00 00 00 00 73 6f 72 63 |flagInt |....sorc|
|00003b70| 47 72 75 70 00 00 01 b0 | 00 00 00 34 73 74 73 72 |Grup....|...4stsr|
|00003b80| 49 6e 74 20 00 00 00 03 | 73 74 73 63 49 6e 74 20 |Int ....|stscInt |
|00003b90| 00 00 00 22 6e 64 73 72 | 49 6e 74 20 00 00 00 03 |..."ndsr|Int ....|
|00003ba0| 6e 64 73 63 49 6e 74 20 | 00 00 00 25 73 72 63 6c |ndscInt |...%srcl|
|00003bb0| 53 74 72 6e 00 00 00 1b | 53 75 62 20 63 6f 6d 70 |Strn....|Sub comp|
|00003bc0| 75 74 65 72 50 6c 61 79 | 28 63 20 61 73 20 63 61 |uterPlay|(c as ca|
|00003bd0| 72 64 29 00 73 72 63 6c | 53 74 72 6e 00 00 00 10 |rd).srcl|Strn....|
|00003be0| 64 69 6d 20 69 20 61 73 | 20 69 6e 74 65 67 65 72 |dim i as| integer|
|00003bf0| 73 72 63 6c 53 74 72 6e | 00 00 00 00 73 72 63 6c |srclStrn|....srcl|
|00003c00| 53 74 72 6e 00 00 00 25 | 77 68 69 6c 65 20 61 43 |Strn...%|while aC|
|00003c10| 6f 6d 70 75 74 65 72 50 | 6c 61 79 28 69 29 2e 67 |omputerP|lay(i).g|
|00003c20| 65 74 43 61 72 64 20 3c | 3e 20 6e 69 6c 00 00 00 |etCard <|> nil...|
|00003c30| 73 72 63 6c 53 74 72 6e | 00 00 00 09 69 20 3d 20 |srclStrn|....i = |
|00003c40| 69 20 2b 20 31 00 00 00 | 73 72 63 6c 53 74 72 6e |i + 1...|srclStrn|
|00003c50| 00 00 00 04 77 65 6e 64 | 73 72 63 6c 53 74 72 6e |....wend|srclStrn|
|00003c60| 00 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 1a |....srcl|Strn....|
|00003c70| 61 43 6f 6d 70 75 74 65 | 72 50 6c 61 79 28 69 29 |aCompute|rPlay(i)|
|00003c80| 2e 73 65 74 43 61 72 64 | 20 63 00 00 73 72 63 6c |.setCard| c..srcl|
|00003c90| 53 74 72 6e 00 00 00 00 | 73 72 63 6c 53 74 72 6e |Strn....|srclStrn|
|00003ca0| 00 00 00 27 61 6e 69 6d | 61 74 65 28 63 6f 6d 70 |...'anim|ate(comp|
|00003cb0| 75 74 65 72 63 6f 75 6e | 74 2c 61 43 6f 6d 70 75 |utercoun|t,aCompu|
|00003cc0| 74 65 72 50 6c 61 79 28 | 69 29 29 00 73 72 63 6c |terPlay(|i)).srcl|
|00003cd0| 53 74 72 6e 00 00 00 00 | 73 72 63 6c 53 74 72 6e |Strn....|srclStrn|
|00003ce0| 00 00 00 18 61 43 6f 6d | 70 75 74 65 72 50 6c 61 |....aCom|puterPla|
|00003cf0| 79 28 69 29 2e 72 65 66 | 72 65 73 68 73 72 63 6c |y(i).ref|reshsrcl|
|00003d00| 53 74 72 6e 00 00 00 0a | 70 6c 6f 70 32 2e 70 6c |Strn....|plop2.pl|
|00003d10| 61 79 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 07 |ay..srcl|Strn....|
|00003d20| 45 6e 64 20 53 75 62 00 | 45 6e 64 47 49 6e 74 20 |End Sub.|EndGInt |
|00003d30| 00 00 00 34 45 6e 64 47 | 49 6e 74 20 00 00 00 33 |...4EndG|Int ...3|
|00003d40| 4d 65 74 68 47 72 75 70 | 00 00 04 68 00 00 00 35 |MethGrup|...h...5|
|00003d50| 6e 61 6d 65 53 74 72 6e | 00 00 00 0d 69 73 4c 65 |nameStrn|....isLe|
|00003d60| 67 61 6c 41 74 74 61 63 | 6b 00 00 00 70 61 72 6d |galAttac|k...parm|
|00003d70| 53 74 72 6e 00 00 00 13 | 77 68 61 74 72 61 6e 6b |Strn....|whatrank|
|00003d80| 20 61 73 20 69 6e 74 65 | 67 65 72 00 72 73 6c 74 | as inte|ger.rslt|
|00003d90| 53 74 72 6e 00 00 00 07 | 62 6f 6f 6c 65 61 6e 00 |Strn....|boolean.|
|00003da0| 66 6c 61 67 49 6e 74 20 | 00 00 00 00 73 6f 72 63 |flagInt |....sorc|
|00003db0| 47 72 75 70 00 00 03 f0 | 00 00 00 36 73 74 73 72 |Grup....|...6stsr|
|00003dc0| 49 6e 74 20 00 00 00 14 | 73 74 73 63 49 6e 74 20 |Int ....|stscInt |
|00003dd0| 00 00 00 1f 6e 64 73 72 | 49 6e 74 20 00 00 00 14 |....ndsr|Int ....|
|00003de0| 6e 64 73 63 49 6e 74 20 | 00 00 00 22 73 72 63 6c |ndscInt |..."srcl|
|00003df0| 53 74 72 6e 00 00 00 36 | 46 75 6e 63 74 69 6f 6e |Strn...6|Function|
|00003e00| 20 69 73 4c 65 67 61 6c | 41 74 74 61 63 6b 28 77 | isLegal|Attack(w|
|00003e10| 68 61 74 72 61 6e 6b 20 | 61 73 20 69 6e 74 65 67 |hatrank |as integ|
|00003e20| 65 72 29 20 41 73 20 62 | 6f 6f 6c 65 61 6e 00 00 |er) As b|oolean..|
|00003e30| 73 72 63 6c 53 74 72 6e | 00 00 00 10 64 69 6d 20 |srclStrn|....dim |
|00003e40| 69 20 61 73 20 69 6e 74 | 65 67 65 72 73 72 63 6c |i as int|egersrcl|
|00003e50| 53 74 72 6e 00 00 00 00 | 73 72 63 6c 53 74 72 6e |Strn....|srclStrn|
|00003e60| 00 00 00 34 2f 2f 20 77 | 68 61 74 72 61 6e 6b 20 |...4// w|hatrank |
|00003e70| 6d 75 73 74 20 6d 61 74 | 63 68 20 74 68 65 20 72 |must mat|ch the r|
|00003e80| 61 6e 6b 20 6f 66 20 73 | 6f 6d 65 20 63 61 72 64 |ank of s|ome card|
|00003e90| 20 69 6e 20 70 6c 61 79 | 73 72 63 6c 53 74 72 6e | in play|srclStrn|
|00003ea0| 00 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 2d |....srcl|Strn...-|
|00003eb0| 2f 2f 20 69 66 20 6e 6f | 20 63 61 72 64 73 20 61 |// if no| cards a|
|00003ec0| 72 65 20 69 6e 20 70 6c | 61 79 2c 20 61 6e 79 74 |re in pl|ay, anyt|
|00003ed0| 68 69 6e 67 20 69 73 20 | 6c 65 67 61 6c 00 00 00 |hing is |legal...|
|00003ee0| 73 72 63 6c 53 74 72 6e | 00 00 00 46 69 66 20 61 |srclStrn|...Fif a|
|00003ef0| 48 75 6d 61 6e 50 6c 61 | 79 28 30 29 2e 67 65 74 |HumanPla|y(0).get|
|00003f00| 43 61 72 64 20 3d 20 6e | 69 6c 20 61 6e 64 20 61 |Card = n|il and a|
|00003f10| 43 6f 6d 70 75 74 65 72 | 50 6c 61 79 28 30 29 2e |Computer|Play(0).|
|00003f20| 67 65 74 43 61 72 64 20 | 3d 20 6e 69 6c 20 74 68 |getCard |= nil th|
|00003f30| 65 6e 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 0b |en..srcl|Strn....|
|00003f40| 72 65 74 75 72 6e 20 74 | 72 75 65 00 73 72 63 6c |return t|rue.srcl|
|00003f50| 53 74 72 6e 00 00 00 03 | 65 6e 64 00 73 72 63 6c |Strn....|end.srcl|
|00003f60| 53 74 72 6e 00 00 00 00 | 73 72 63 6c 53 74 72 6e |Strn....|srclStrn|
|00003f70| 00 00 00 1a 77 68 69 6c | 65 20 61 48 75 6d 61 6e |....whil|e aHuman|
|00003f80| 50 6c 61 79 28 69 29 20 | 3c 3e 20 6e 69 6c 00 00 |Play(i) |<> nil..|
|00003f90| 73 72 63 6c 53 74 72 6e | 00 00 00 24 69 66 20 61 |srclStrn|...$if a|
|00003fa0| 48 75 6d 61 6e 50 6c 61 | 79 28 69 29 2e 67 65 74 |HumanPla|y(i).get|
|00003fb0| 43 61 72 64 20 3c 3e 20 | 6e 69 6c 20 74 68 65 6e |Card <> |nil then|
|00003fc0| 73 72 63 6c 53 74 72 6e | 00 00 00 28 69 66 20 61 |srclStrn|...(if a|
|00003fd0| 48 75 6d 61 6e 50 6c 61 | 79 28 69 29 2e 67 65 74 |HumanPla|y(i).get|
|00003fe0| 52 61 6e 6b 20 3d 20 77 | 68 61 74 72 61 6e 6b 20 |Rank = w|hatrank |
|00003ff0| 74 68 65 6e 73 72 63 6c | 53 74 72 6e 00 00 00 0b |thensrcl|Strn....|
|00004000| 72 65 74 75 72 6e 20 74 | 72 75 65 00 73 72 63 6c |return t|rue.srcl|
|00004010| 53 74 72 6e 00 00 00 03 | 65 6e 64 00 73 72 63 6c |Strn....|end.srcl|
|00004020| 53 74 72 6e 00 00 00 03 | 65 6e 64 00 73 72 63 6c |Strn....|end.srcl|
|00004030| 53 74 72 6e 00 00 00 09 | 69 20 3d 20 69 20 2b 20 |Strn....|i = i + |
|00004040| 31 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 04 |1...srcl|Strn....|
|00004050| 77 65 6e 64 73 72 63 6c | 53 74 72 6e 00 00 00 05 |wendsrcl|Strn....|
|00004060| 69 20 3d 20 30 00 00 00 | 73 72 63 6c 53 74 72 6e |i = 0...|srclStrn|
|00004070| 00 00 00 1d 77 68 69 6c | 65 20 61 43 6f 6d 70 75 |....whil|e aCompu|
|00004080| 74 65 72 50 6c 61 79 28 | 69 29 20 3c 3e 20 6e 69 |terPlay(|i) <> ni|
|00004090| 6c 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 27 |l...srcl|Strn...'|
|000040a0| 69 66 20 61 43 6f 6d 70 | 75 74 65 72 50 6c 61 79 |if aComp|uterPlay|
|000040b0| 28 69 29 2e 67 65 74 43 | 61 72 64 20 3c 3e 20 6e |(i).getC|ard <> n|
|000040c0| 69 6c 20 74 68 65 6e 00 | 73 72 63 6c 53 74 72 6e |il then.|srclStrn|
|000040d0| 00 00 00 2b 69 66 20 61 | 43 6f 6d 70 75 74 65 72 |...+if a|Computer|
|000040e0| 50 6c 61 79 28 69 29 2e | 67 65 74 52 61 6e 6b 20 |Play(i).|getRank |
|000040f0| 3d 20 77 68 61 74 72 61 | 6e 6b 20 74 68 65 6e 00 |= whatra|nk then.|
|00004100| 73 72 63 6c 53 74 72 6e | 00 00 00 0b 72 65 74 75 |srclStrn|....retu|
|00004110| 72 6e 20 74 72 75 65 00 | 73 72 63 6c 53 74 72 6e |rn true.|srclStrn|
|00004120| 00 00 00 03 65 6e 64 00 | 73 72 63 6c 53 74 72 6e |....end.|srclStrn|
|00004130| 00 00 00 03 65 6e 64 00 | 73 72 63 6c 53 74 72 6e |....end.|srclStrn|
|00004140| 00 00 00 09 69 20 3d 20 | 69 20 2b 20 31 00 00 00 |....i = |i + 1...|
|00004150| 73 72 63 6c 53 74 72 6e | 00 00 00 04 77 65 6e 64 |srclStrn|....wend|
|00004160| 73 72 63 6c 53 74 72 6e | 00 00 00 00 73 72 63 6c |srclStrn|....srcl|
|00004170| 53 74 72 6e 00 00 00 0c | 72 65 74 75 72 6e 20 66 |Strn....|return f|
|00004180| 61 6c 73 65 73 72 63 6c | 53 74 72 6e 00 00 00 00 |alsesrcl|Strn....|
|00004190| 73 72 63 6c 53 74 72 6e | 00 00 00 0c 45 6e 64 20 |srclStrn|....End |
|000041a0| 46 75 6e 63 74 69 6f 6e | 45 6e 64 47 49 6e 74 20 |Function|EndGInt |
|000041b0| 00 00 00 36 45 6e 64 47 | 49 6e 74 20 00 00 00 35 |...6EndG|Int ...5|
|000041c0| 4d 65 74 68 47 72 75 70 | 00 00 04 84 00 00 00 37 |MethGrup|.......7|
|000041d0| 6e 61 6d 65 53 74 72 6e | 00 00 00 0f 63 6f 6d 70 |nameStrn|....comp|
|000041e0| 75 74 65 72 53 77 61 6c | 6c 6f 77 00 70 61 72 6d |uterSwal|low.parm|
|000041f0| 53 74 72 6e 00 00 00 00 | 72 73 6c 74 53 74 72 6e |Strn....|rsltStrn|
|00004200| 00 00 00 00 66 6c 61 67 | 49 6e 74 20 00 00 00 00 |....flag|Int ....|
|00004210| 73 6f 72 63 47 72 75 70 | 00 00 04 28 00 00 00 38 |sorcGrup|...(...8|
|00004220| 73 74 73 72 49 6e 74 20 | 00 00 00 16 73 74 73 63 |stsrInt |....stsc|
|00004230| 49 6e 74 20 00 00 00 16 | 6e 64 73 72 49 6e 74 20 |Int ....|ndsrInt |
|00004240| 00 00 00 16 6e 64 73 63 | 49 6e 74 20 00 00 00 19 |....ndsc|Int ....|
|00004250| 73 72 63 6c 53 74 72 6e | 00 00 00 15 53 75 62 20 |srclStrn|....Sub |
|00004260| 63 6f 6d 70 75 74 65 72 | 53 77 61 6c 6c 6f 77 28 |computer|Swallow(|
|00004270| 29 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 12 |)...srcl|Strn....|
|00004280| 64 69 6d 20 69 2c 6a 20 | 61 73 20 69 6e 74 65 67 |dim i,j |as integ|
|00004290| 65 72 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 00 |er..srcl|Strn....|
|000042a0| 73 72 63 6c 53 74 72 6e | 00 00 00 41 77 68 69 6c |srclStrn|...Awhil|
|000042b0| 65 20 61 43 6f 6d 70 75 | 74 65 72 50 6c 61 79 28 |e aCompu|terPlay(|
|000042c0| 69 29 20 3c 3e 20 6e 69 | 6c 20 61 6e 64 20 61 43 |i) <> ni|l and aC|
|000042d0| 6f 6d 70 75 74 65 72 50 | 6c 61 79 28 69 29 2e 67 |omputerP|lay(i).g|
|000042e0| 65 74 43 61 72 64 20 3c | 3e 20 6e 69 6c 00 00 00 |etCard <|> nil...|
|000042f0| 73 72 63 6c 53 74 72 6e | 00 00 00 25 67 69 76 65 |srclStrn|...%give|
|00004300| 43 6f 6d 70 75 74 65 72 | 20 61 43 6f 6d 70 75 74 |Computer| aComput|
|00004310| 65 72 50 6c 61 79 28 69 | 29 2e 67 65 74 43 61 72 |erPlay(i|).getCar|
|00004320| 64 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 00 |d...srcl|Strn....|
|00004330| 73 72 63 6c 53 74 72 6e | 00 00 00 28 61 6e 69 6d |srclStrn|...(anim|
|00004340| 61 74 65 28 61 43 6f 6d | 70 75 74 65 72 50 6c 61 |ate(aCom|puterPla|
|00004350| 79 28 69 29 2c 20 63 6f | 6d 70 75 74 65 72 63 6f |y(i), co|mputerco|
|00004360| 75 6e 74 29 73 72 63 6c | 53 74 72 6e 00 00 00 00 |unt)srcl|Strn....|
|00004370| 73 72 63 6c 53 74 72 6e | 00 00 00 1c 61 43 6f 6d |srclStrn|....aCom|
|00004380| 70 75 74 65 72 50 6c 61 | 79 28 69 29 2e 73 65 74 |puterPla|y(i).set|
|00004390| 43 61 72 64 20 6e 69 6c | 73 72 63 6c 53 74 72 6e |Card nil|srclStrn|
|000043a0| 00 00 00 1f 61 43 6f 6d | 70 75 74 65 72 50 6c 61 |....aCom|puterPla|
|000043b0| 79 28 69 29 2e 68 69 64 | 64 65 6e 20 3d 20 66 61 |y(i).hid|den = fa|
|000043c0| 6c 73 65 00 73 72 63 6c | 53 74 72 6e 00 00 00 18 |lse.srcl|Strn....|
|000043d0| 61 43 6f 6d 70 75 74 65 | 72 50 6c 61 79 28 69 29 |aCompute|rPlay(i)|
|000043e0| 2e 72 65 66 72 65 73 68 | 73 72 63 6c 53 74 72 6e |.refresh|srclStrn|
|000043f0| 00 00 00 1d 6e 6f 74 65 | 50 6c 61 79 65 72 31 2e |....note|Player1.|
|00004400| 70 6c 61 79 4e 6f 74 65 | 20 69 2b 36 30 2c 20 36 |playNote| i+60, 6|
|00004410| 30 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 05 |0...srcl|Strn....|
|00004420| 64 65 6c 61 79 00 00 00 | 73 72 63 6c 53 74 72 6e |delay...|srclStrn|
|00004430| 00 00 00 09 69 20 3d 20 | 69 20 2b 20 31 00 00 00 |....i = |i + 1...|
|00004440| 73 72 63 6c 53 74 72 6e | 00 00 00 04 77 65 6e 64 |srclStrn|....wend|
|00004450| 73 72 63 6c 53 74 72 6e | 00 00 00 05 6a 20 3d 20 |srclStrn|....j = |
|00004460| 69 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 05 |i...srcl|Strn....|
|00004470| 69 20 3d 20 30 00 00 00 | 73 72 63 6c 53 74 72 6e |i = 0...|srclStrn|
|00004480| 00 00 00 3b 77 68 69 6c | 65 20 61 48 75 6d 61 6e |...;whil|e aHuman|
|00004490| 50 6c 61 79 28 69 29 20 | 3c 3e 20 6e 69 6c 20 61 |Play(i) |<> nil a|
|000044a0| 6e 64 20 61 48 75 6d 61 | 6e 50 6c 61 79 28 69 29 |nd aHuma|nPlay(i)|
|000044b0| 2e 67 65 74 43 61 72 64 | 20 3c 3e 20 6e 69 6c 00 |.getCard| <> nil.|
|000044c0| 73 72 63 6c 53 74 72 6e | 00 00 00 22 67 69 76 65 |srclStrn|..."give|
|000044d0| 43 6f 6d 70 75 74 65 72 | 20 61 48 75 6d 61 6e 50 |Computer| aHumanP|
|000044e0| 6c 61 79 28 69 29 2e 67 | 65 74 43 61 72 64 00 00 |lay(i).g|etCard..|
|000044f0| 73 72 63 6c 53 74 72 6e | 00 00 00 00 73 72 63 6c |srclStrn|....srcl|
|00004500| 53 74 72 6e 00 00 00 25 | 61 6e 69 6d 61 74 65 28 |Strn...%|animate(|
|00004510| 61 48 75 6d 61 6e 50 6c | 61 79 28 69 29 2c 20 63 |aHumanPl|ay(i), c|
|00004520| 6f 6d 70 75 74 65 72 63 | 6f 75 6e 74 29 00 00 00 |omputerc|ount)...|
|00004530| 73 72 63 6c 53 74 72 6e | 00 00 00 00 73 72 63 6c |srclStrn|....srcl|
|00004540| 53 74 72 6e 00 00 00 19 | 61 48 75 6d 61 6e 50 6c |Strn....|aHumanPl|
|00004550| 61 79 28 69 29 2e 73 65 | 74 43 61 72 64 20 6e 69 |ay(i).se|tCard ni|
|00004560| 6c 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 1c |l...srcl|Strn....|
|00004570| 61 48 75 6d 61 6e 50 6c | 61 79 28 69 29 2e 68 69 |aHumanPl|ay(i).hi|
|00004580| 64 64 65 6e 20 3d 20 66 | 61 6c 73 65 73 72 63 6c |dden = f|alsesrcl|
|00004590| 53 74 72 6e 00 00 00 15 | 61 48 75 6d 61 6e 50 6c |Strn....|aHumanPl|
|000045a0| 61 79 28 69 29 2e 72 65 | 66 72 65 73 68 00 00 00 |ay(i).re|fresh...|
|000045b0| 73 72 63 6c 53 74 72 6e | 00 00 00 1d 6e 6f 74 65 |srclStrn|....note|
|000045c0| 50 6c 61 79 65 72 31 2e | 70 6c 61 79 4e 6f 74 65 |Player1.|playNote|
|000045d0| 20 6a 2b 36 30 2c 20 36 | 30 00 00 00 73 72 63 6c | j+60, 6|0...srcl|
|000045e0| 53 74 72 6e 00 00 00 05 | 64 65 6c 61 79 00 00 00 |Strn....|delay...|
|000045f0| 73 72 63 6c 53 74 72 6e | 00 00 00 09 69 20 3d 20 |srclStrn|....i = |
|00004600| 69 20 2b 20 31 00 00 00 | 73 72 63 6c 53 74 72 6e |i + 1...|srclStrn|
|00004610| 00 00 00 09 6a 20 3d 20 | 6a 20 2b 20 31 00 00 00 |....j = |j + 1...|
|00004620| 73 72 63 6c 53 74 72 6e | 00 00 00 04 77 65 6e 64 |srclStrn|....wend|
|00004630| 73 72 63 6c 53 74 72 6e | 00 00 00 07 45 6e 64 20 |srclStrn|....End |
|00004640| 53 75 62 00 45 6e 64 47 | 49 6e 74 20 00 00 00 38 |Sub.EndG|Int ...8|
|00004650| 45 6e 64 47 49 6e 74 20 | 00 00 00 37 4d 65 74 68 |EndGInt |...7Meth|
|00004660| 47 72 75 70 00 00 02 8c | 00 00 00 39 6e 61 6d 65 |Grup....|...9name|
|00004670| 53 74 72 6e 00 00 00 09 | 68 75 6d 61 6e 44 72 61 |Strn....|humanDra|
|00004680| 77 00 00 00 70 61 72 6d | 53 74 72 6e 00 00 00 00 |w...parm|Strn....|
|00004690| 72 73 6c 74 53 74 72 6e | 00 00 00 00 66 6c 61 67 |rsltStrn|....flag|
|000046a0| 49 6e 74 20 00 00 00 00 | 73 6f 72 63 47 72 75 70 |Int ....|sorcGrup|
|000046b0| 00 00 02 34 00 00 00 3a | 73 74 73 72 49 6e 74 20 |...4...:|stsrInt |
|000046c0| 00 00 00 08 73 74 73 63 | 49 6e 74 20 00 00 00 07 |....stsc|Int ....|
|000046d0| 6e 64 73 72 49 6e 74 20 | 00 00 00 08 6e 64 73 63 |ndsrInt |....ndsc|
|000046e0| 49 6e 74 20 00 00 00 0a | 73 72 63 6c 53 74 72 6e |Int ....|srclStrn|
|000046f0| 00 00 00 0f 53 75 62 20 | 68 75 6d 61 6e 44 72 61 |....Sub |humanDra|
|00004700| 77 28 29 00 73 72 63 6c | 53 74 72 6e 00 00 00 18 |w().srcl|Strn....|
|00004710| 64 69 6d 20 69 2c 6a 2c | 64 75 6d 6d 79 20 61 73 |dim i,j,|dummy as|
|00004720| 20 69 6e 74 65 67 65 72 | 73 72 63 6c 53 74 72 6e | integer|srclStrn|
|00004730| 00 00 00 0d 64 69 6d 20 | 63 20 61 73 20 63 61 72 |....dim |c as car|
|00004740| 64 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 3b |d...srcl|Strn...;|
|00004750| 77 68 69 6c 65 20 61 48 | 75 6d 61 6e 43 61 72 64 |while aH|umanCard|
|00004760| 28 69 29 20 3c 3e 20 6e | 69 6c 20 61 6e 64 20 61 |(i) <> n|il and a|
|00004770| 48 75 6d 61 6e 43 61 72 | 64 28 69 29 2e 67 65 74 |HumanCar|d(i).get|
|00004780| 43 61 72 64 20 3c 3e 20 | 6e 69 6c 00 73 72 63 6c |Card <> |nil.srcl|
|00004790| 53 74 72 6e 00 00 00 09 | 69 20 3d 20 69 20 2b 20 |Strn....|i = i + |
|000047a0| 31 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 04 |1...srcl|Strn....|
|000047b0| 77 65 6e 64 73 72 63 6c | 53 74 72 6e 00 00 00 1c |wendsrcl|Strn....|
|000047c0| 66 6f 72 20 6a 20 3d 20 | 69 20 74 6f 20 35 20 2f |for j = |i to 5 /|
|000047d0| 2f 20 7a 65 72 6f 2d 69 | 6e 64 65 78 73 72 63 6c |/ zero-i|ndexsrcl|
|000047e0| 53 74 72 6e 00 00 00 10 | 63 20 3d 20 74 68 65 44 |Strn....|c = theD|
|000047f0| 65 63 6b 2e 64 65 61 6c | 73 72 63 6c 53 74 72 6e |eck.deal|srclStrn|
|00004800| 00 00 00 0f 69 66 20 63 | 20 3d 20 6e 69 6c 20 74 |....if c| = nil t|
|00004810| 68 65 6e 00 73 72 63 6c | 53 74 72 6e 00 00 00 06 |hen.srcl|Strn....|
|00004820| 72 65 74 75 72 6e 00 00 | 73 72 63 6c 53 74 72 6e |return..|srclStrn|
|00004830| 00 00 00 03 65 6e 64 00 | 73 72 63 6c 53 74 72 6e |....end.|srclStrn|
|00004840| 00 00 00 14 64 75 6d 6d | 79 20 3d 20 67 69 76 65 |....dumm|y = give|
|00004850| 48 75 6d 61 6e 28 63 29 | 73 72 63 6c 53 74 72 6e |Human(c)|srclStrn|
|00004860| 00 00 00 24 61 6e 69 6d | 61 74 65 28 64 65 63 6b |...$anim|ate(deck|
|00004870| 43 6f 75 6e 74 2c 61 48 | 75 6d 61 6e 43 61 72 64 |Count,aH|umanCard|
|00004880| 28 64 75 6d 6d 79 29 29 | 73 72 63 6c 53 74 72 6e |(dummy))|srclStrn|
|00004890| 00 00 00 19 61 48 75 6d | 61 6e 43 61 72 64 28 64 |....aHum|anCard(d|
|000048a0| 75 6d 6d 79 29 2e 72 65 | 66 72 65 73 68 00 00 00 |ummy).re|fresh...|
|000048b0| 73 72 63 6c 53 74 72 6e | 00 00 00 05 64 65 6c 61 |srclStrn|....dela|
|000048c0| 79 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 04 |y...srcl|Strn....|
|000048d0| 6e 65 78 74 73 72 63 6c | 53 74 72 6e 00 00 00 07 |nextsrcl|Strn....|
|000048e0| 45 6e 64 20 53 75 62 00 | 45 6e 64 47 49 6e 74 20 |End Sub.|EndGInt |
|000048f0| 00 00 00 3a 45 6e 64 47 | 49 6e 74 20 00 00 00 39 |...:EndG|Int ...9|
|00004900| 4d 65 74 68 47 72 75 70 | 00 00 01 dc 00 00 00 3b |MethGrup|.......;|
|00004910| 6e 61 6d 65 53 74 72 6e | 00 00 00 0c 63 6f 6d 70 |nameStrn|....comp|
|00004920| 75 74 65 72 44 72 61 77 | 70 61 72 6d 53 74 72 6e |uterDraw|parmStrn|
|00004930| 00 00 00 00 72 73 6c 74 | 53 74 72 6e 00 00 00 00 |....rslt|Strn....|
|00004940| 66 6c 61 67 49 6e 74 20 | 00 00 00 00 73 6f 72 63 |flagInt |....sorc|
|00004950| 47 72 75 70 00 00 01 84 | 00 00 00 3c 73 74 73 72 |Grup....|...<stsr|
|00004960| 49 6e 74 20 00 00 00 05 | 73 74 73 63 49 6e 74 20 |Int ....|stscInt |
|00004970| 00 00 00 07 6e 64 73 72 | 49 6e 74 20 00 00 00 05 |....ndsr|Int ....|
|00004980| 6e 64 73 63 49 6e 74 20 | 00 00 00 0a 73 72 63 6c |ndscInt |....srcl|
|00004990| 53 74 72 6e 00 00 00 12 | 53 75 62 20 63 6f 6d 70 |Strn....|Sub comp|
|000049a0| 75 74 65 72 44 72 61 77 | 28 29 00 00 73 72 63 6c |uterDraw|()..srcl|
|000049b0| 53 74 72 6e 00 00 00 10 | 64 69 6d 20 69 20 61 73 |Strn....|dim i as|
|000049c0| 20 69 6e 74 65 67 65 72 | 73 72 63 6c 53 74 72 6e | integer|srclStrn|
|000049d0| 00 00 00 0d 64 69 6d 20 | 63 20 61 73 20 63 61 72 |....dim |c as car|
|000049e0| 64 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 3a |d...srcl|Strn...:|
|000049f0| 66 6f 72 20 69 20 3d 20 | 75 62 6f 75 6e 64 28 63 |for i = |ubound(c|
|00004a00| 6f 6d 70 75 74 65 72 29 | 20 2b 20 31 20 74 6f 20 |omputer)| + 1 to |
|00004a10| 36 20 2f 2f 20 63 6f 6d | 70 75 74 65 72 20 69 73 |6 // com|puter is|
|00004a20| 20 31 2d 69 6e 64 65 78 | 65 64 00 00 73 72 63 6c | 1-index|ed..srcl|
|00004a30| 53 74 72 6e 00 00 00 10 | 63 20 3d 20 74 68 65 44 |Strn....|c = theD|
|00004a40| 65 63 6b 2e 64 65 61 6c | 73 72 63 6c 53 74 72 6e |eck.deal|srclStrn|
|00004a50| 00 00 00 0f 69 66 20 63 | 20 3d 20 6e 69 6c 20 74 |....if c| = nil t|
|00004a60| 68 65 6e 00 73 72 63 6c | 53 74 72 6e 00 00 00 06 |hen.srcl|Strn....|
|00004a70| 72 65 74 75 72 6e 00 00 | 73 72 63 6c 53 74 72 6e |return..|srclStrn|
|00004a80| 00 00 00 03 65 6e 64 00 | 73 72 63 6c 53 74 72 6e |....end.|srclStrn|
|00004a90| 00 00 00 10 67 69 76 65 | 43 6f 6d 70 75 74 65 72 |....give|Computer|
|00004aa0| 20 28 63 29 73 72 63 6c | 53 74 72 6e 00 00 00 05 | (c)srcl|Strn....|
|00004ab0| 64 65 6c 61 79 00 00 00 | 73 72 63 6c 53 74 72 6e |delay...|srclStrn|
|00004ac0| 00 00 00 04 6e 65 78 74 | 73 72 63 6c 53 74 72 6e |....next|srclStrn|
|00004ad0| 00 00 00 07 45 6e 64 20 | 53 75 62 00 45 6e 64 47 |....End |Sub.EndG|
|00004ae0| 49 6e 74 20 00 00 00 3c | 45 6e 64 47 49 6e 74 20 |Int ...<|EndGInt |
|00004af0| 00 00 00 3b 4d 65 74 68 | 47 72 75 70 00 00 05 a0 |...;Meth|Grup....|
|00004b00| 00 00 00 3d 6e 61 6d 65 | 53 74 72 6e 00 00 00 0e |...=name|Strn....|
|00004b10| 63 6f 6d 70 75 74 65 72 | 41 74 74 61 63 6b 00 00 |computer|Attack..|
|00004b20| 70 61 72 6d 53 74 72 6e | 00 00 00 00 72 73 6c 74 |parmStrn|....rslt|
|00004b30| 53 74 72 6e 00 00 00 00 | 66 6c 61 67 49 6e 74 20 |Strn....|flagInt |
|00004b40| 00 00 00 00 73 6f 72 63 | 47 72 75 70 00 00 05 44 |....sorc|Grup...D|
|00004b50| 00 00 00 3e 73 74 73 72 | 49 6e 74 20 00 00 00 09 |...>stsr|Int ....|
|00004b60| 73 74 73 63 49 6e 74 20 | 00 00 00 38 6e 64 73 72 |stscInt |...8ndsr|
|00004b70| 49 6e 74 20 00 00 00 09 | 6e 64 73 63 49 6e 74 20 |Int ....|ndscInt |
|00004b80| 00 00 00 3b 73 72 63 6c | 53 74 72 6e 00 00 00 14 |...;srcl|Strn....|
|00004b90| 53 75 62 20 63 6f 6d 70 | 75 74 65 72 41 74 74 61 |Sub comp|uterAtta|
|00004ba0| 63 6b 28 29 73 72 63 6c | 53 74 72 6e 00 00 00 3c |ck()srcl|Strn...<|
|00004bb0| 2f 2f 20 64 75 6d 62 20 | 73 74 72 61 74 65 67 79 |// dumb |strategy|
|00004bc0| 2c 20 70 72 65 66 65 72 | 20 6c 6f 77 65 73 74 20 |, prefer| lowest |
|00004bd0| 6e 6f 6e 2d 74 72 75 6d | 70 2c 20 74 68 65 6e 20 |non-trum|p, then |
|00004be0| 6c 6f 77 65 73 74 20 74 | 72 75 6d 70 73 72 63 6c |lowest t|rumpsrcl|
|00004bf0| 53 74 72 6e 00 00 00 00 | 73 72 63 6c 53 74 72 6e |Strn....|srclStrn|
|00004c00| 00 00 00 1c 64 69 6d 20 | 69 2c 20 77 68 61 74 54 |....dim |i, whatT|
|00004c10| 6f 50 6c 61 79 20 61 73 | 20 69 6e 74 65 67 65 72 |oPlay as| integer|
|00004c20| 73 72 63 6c 53 74 72 6e | 00 00 00 00 73 72 63 6c |srclStrn|....srcl|
|00004c30| 53 74 72 6e 00 00 00 1d | 64 6f 6e 65 41 74 74 61 |Strn....|doneAtta|
|00004c40| 63 6b 69 6e 67 2e 65 6e | 61 62 6c 65 64 20 3d 20 |cking.en|abled = |
|00004c50| 66 61 6c 73 65 00 00 00 | 73 72 63 6c 53 74 72 6e |false...|srclStrn|
|00004c60| 00 00 00 1c 64 6f 6e 65 | 44 65 66 65 6e 64 69 6e |....done|Defendin|
|00004c70| 67 2e 65 6e 61 62 6c 65 | 64 20 3d 20 74 72 75 65 |g.enable|d = true|
|00004c80| 73 72 63 6c 53 74 72 6e | 00 00 00 00 73 72 63 6c |srclStrn|....srcl|
|00004c90| 53 74 72 6e 00 00 00 22 | 69 66 20 73 74 61 74 65 |Strn..."|if state|
|00004ca0| 20 3d 20 22 68 75 6d 61 | 6e 53 74 61 72 74 44 65 | = "huma|nStartDe|
|00004cb0| 66 65 6e 64 22 20 74 68 | 65 6e 00 00 73 72 63 6c |fend" th|en..srcl|
|00004cc0| 53 74 72 6e 00 00 00 3b | 77 68 69 6c 65 20 61 48 |Strn...;|while aH|
|00004cd0| 75 6d 61 6e 43 61 72 64 | 28 69 29 20 3c 3e 20 6e |umanCard|(i) <> n|
|00004ce0| 69 6c 20 61 6e 64 20 61 | 48 75 6d 61 6e 43 61 72 |il and a|HumanCar|
|00004cf0| 64 28 69 29 2e 67 65 74 | 43 61 72 64 20 3c 3e 20 |d(i).get|Card <> |
|00004d00| 6e 69 6c 00 73 72 63 6c | 53 74 72 6e 00 00 00 09 |nil.srcl|Strn....|
|00004d10| 69 20 3d 20 69 20 2b 20 | 31 00 00 00 73 72 63 6c |i = i + |1...srcl|
|00004d20| 53 74 72 6e 00 00 00 04 | 77 65 6e 64 73 72 63 6c |Strn....|wendsrcl|
|00004d30| 53 74 72 6e 00 00 00 1e | 64 65 66 65 6e 64 65 72 |Strn....|defender|
|00004d40| 53 74 61 72 74 65 64 57 | 69 74 68 20 3d 20 6d 69 |StartedW|ith = mi|
|00004d50| 6e 28 69 2c 36 29 00 00 | 73 72 63 6c 53 74 72 6e |n(i,6)..|srclStrn|
|00004d60| 00 00 00 03 65 6e 64 00 | 73 72 63 6c 53 74 72 6e |....end.|srclStrn|
|00004d70| 00 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 21 |....srcl|Strn...!|
|00004d80| 77 68 61 74 54 6f 50 6c | 61 79 20 3d 20 63 6f 6d |whatToPl|ay = com|
|00004d90| 70 75 74 65 72 44 65 63 | 69 64 65 41 74 74 61 63 |puterDec|ideAttac|
|00004da0| 6b 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 00 |k...srcl|Strn....|
|00004db0| 73 72 63 6c 53 74 72 6e | 00 00 00 29 69 66 20 77 |srclStrn|...)if w|
|00004dc0| 68 61 74 54 6f 50 6c 61 | 79 20 3e 20 2d 31 20 74 |hatToPla|y > -1 t|
|00004dd0| 68 65 6e 20 2f 2f 20 77 | 65 20 68 61 76 65 20 61 |hen // w|e have a|
|00004de0| 20 70 6c 61 79 00 00 00 | 73 72 63 6c 53 74 72 6e | play...|srclStrn|
|00004df0| 00 00 00 2a 63 6f 6d 70 | 75 74 65 72 50 6c 61 79 |...*comp|uterPlay|
|00004e00| 28 74 61 6b 65 46 72 6f | 6d 43 6f 6d 70 75 74 65 |(takeFro|mCompute|
|00004e10| 72 28 77 68 61 74 54 6f | 50 6c 61 79 29 29 00 00 |r(whatTo|Play))..|
|00004e20| 73 72 63 6c 53 74 72 6e | 00 00 00 12 69 66 20 69 |srclStrn|....if i|
|00004e30| 73 47 61 6d 65 4f 76 65 | 72 20 74 68 65 6e 00 00 |sGameOve|r then..|
|00004e40| 73 72 63 6c 53 74 72 6e | 00 00 00 06 72 65 74 75 |srclStrn|....retu|
|00004e50| 72 6e 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 03 |rn..srcl|Strn....|
|00004e60| 65 6e 64 00 73 72 63 6c | 53 74 72 6e 00 00 00 15 |end.srcl|Strn....|
|00004e70| 73 74 61 74 65 20 3d 20 | 22 68 75 6d 61 6e 44 65 |state = |"humanDe|
|00004e80| 66 65 6e 64 22 00 00 00 | 73 72 63 6c 53 74 72 6e |fend"...|srclStrn|
|00004e90| 00 00 00 4d 73 61 79 20 | 22 43 6f 6d 70 75 74 65 |...Msay |"Compute|
|00004ea0| 72 20 61 74 74 61 63 6b | 73 21 20 59 6f 75 20 64 |r attack|s! You d|
|00004eb0| 65 66 65 6e 64 2c 20 6f | 72 20 70 72 65 73 73 20 |efend, o|r press |
|00004ec0| 74 68 65 20 62 75 74 74 | 6f 6e 20 74 6f 20 67 69 |the butt|on to gi|
|00004ed0| 76 65 20 75 70 20 64 65 | 66 65 6e 64 69 6e 67 2e |ve up de|fending.|
|00004ee0| 22 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 00 |"...srcl|Strn....|
|00004ef0| 73 72 63 6c 53 74 72 6e | 00 00 00 2b 65 6c 73 65 |srclStrn|...+else|
|00004f00| 20 2f 2f 20 63 6f 6d 70 | 75 74 65 72 20 63 61 6e | // comp|uter can|
|00004f10| 6e 6f 74 20 63 6f 6e 74 | 69 6e 75 65 20 74 68 65 |not cont|inue the|
|00004f20| 20 61 74 74 61 63 6b 00 | 73 72 63 6c 53 74 72 6e | attack.|srclStrn|
|00004f30| 00 00 00 48 73 61 79 20 | 22 43 6f 6d 70 75 74 65 |...Hsay |"Compute|
|00004f40| 72 20 64 6f 65 73 20 6e | 6f 74 20 63 6f 6e 74 69 |r does n|ot conti|
|00004f50| 6e 75 65 20 74 68 65 20 | 61 74 74 61 63 6b 2e 20 |nue the |attack. |
|00004f60| 59 6f 75 20 61 74 74 61 | 63 6b 2e 20 43 6c 69 63 |You atta|ck. Clic|
|00004f70| 6b 20 61 6e 79 20 63 61 | 72 64 2e 22 73 72 63 6c |k any ca|rd."srcl|
|00004f80| 53 74 72 6e 00 00 00 05 | 64 65 6c 61 79 00 00 00 |Strn....|delay...|
|00004f90| 73 72 63 6c 53 74 72 6e | 00 00 00 0a 63 6c 65 61 |srclStrn|....clea|
|00004fa0| 72 50 6c 61 79 73 00 00 | 73 72 63 6c 53 74 72 6e |rPlays..|srclStrn|
|00004fb0| 00 00 00 05 64 65 6c 61 | 79 00 00 00 73 72 63 6c |....dela|y...srcl|
|00004fc0| 53 74 72 6e 00 00 00 24 | 63 6f 6d 70 75 74 65 72 |Strn...$|computer|
|00004fd0| 44 72 61 77 20 2f 2f 20 | 61 74 74 61 63 6b 65 72 |Draw // |attacker|
|00004fe0| 20 64 72 61 77 73 20 66 | 69 72 73 74 73 72 63 6c | draws f|irstsrcl|
|00004ff0| 53 74 72 6e 00 00 00 09 | 68 75 6d 61 6e 44 72 61 |Strn....|humanDra|
|00005000| 77 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 1a |w...srcl|Strn....|
|00005010| 73 74 61 74 65 20 3d 20 | 22 68 75 6d 61 6e 53 74 |state = |"humanSt|
|00005020| 61 72 74 41 74 74 61 63 | 6b 22 00 00 73 72 63 6c |artAttac|k"..srcl|
|00005030| 53 74 72 6e 00 00 00 1d | 64 6f 6e 65 44 65 66 65 |Strn....|doneDefe|
|00005040| 6e 64 69 6e 67 2e 65 6e | 61 62 6c 65 64 20 3d 20 |nding.en|abled = |
|00005050| 66 61 6c 73 65 00 00 00 | 73 72 63 6c 53 74 72 6e |false...|srclStrn|
|00005060| 00 00 00 03 65 6e 64 00 | 73 72 63 6c 53 74 72 6e |....end.|srclStrn|
|00005070| 00 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 00 |....srcl|Strn....|
|00005080| 73 72 63 6c 53 74 72 6e | 00 00 00 07 45 6e 64 20 |srclStrn|....End |
|00005090| 53 75 62 00 45 6e 64 47 | 49 6e 74 20 00 00 00 3e |Sub.EndG|Int ...>|
|000050a0| 45 6e 64 47 49 6e 74 20 | 00 00 00 3d 4d 65 74 68 |EndGInt |...=Meth|
|000050b0| 47 72 75 70 00 00 03 c0 | 00 00 00 3f 6e 61 6d 65 |Grup....|...?name|
|000050c0| 53 74 72 6e 00 00 00 0a | 63 6c 65 61 72 50 6c 61 |Strn....|clearPla|
|000050d0| 79 73 00 00 70 61 72 6d | 53 74 72 6e 00 00 00 00 |ys..parm|Strn....|
|000050e0| 72 73 6c 74 53 74 72 6e | 00 00 00 00 66 6c 61 67 |rsltStrn|....flag|
|000050f0| 49 6e 74 20 00 00 00 00 | 73 6f 72 63 47 72 75 70 |Int ....|sorcGrup|
|00005100| 00 00 03 68 00 00 00 40 | 73 74 73 72 49 6e 74 20 |...h...@|stsrInt |
|00005110| 00 00 00 0f 73 74 73 63 | 49 6e 74 20 00 00 00 16 |....stsc|Int ....|
|00005120| 6e 64 73 72 49 6e 74 20 | 00 00 00 0f 6e 64 73 63 |ndsrInt |....ndsc|
|00005130| 49 6e 74 20 00 00 00 19 | 73 72 63 6c 53 74 72 6e |Int ....|srclStrn|
|00005140| 00 00 00 10 53 75 62 20 | 63 6c 65 61 72 50 6c 61 |....Sub |clearPla|
|00005150| 79 73 28 29 73 72 63 6c | 53 74 72 6e 00 00 00 1c |ys()srcl|Strn....|
|00005160| 2f 2f 20 74 68 72 6f 77 | 20 61 77 61 79 20 61 6c |// throw| away al|
|00005170| 6c 20 70 6c 61 79 20 63 | 61 72 64 73 73 72 63 6c |l play c|ardssrcl|
|00005180| 53 74 72 6e 00 00 00 00 | 73 72 63 6c 53 74 72 6e |Strn....|srclStrn|
|00005190| 00 00 00 10 64 69 6d 20 | 69 20 61 73 20 69 6e 74 |....dim |i as int|
|000051a0| 65 67 65 72 73 72 63 6c | 53 74 72 6e 00 00 00 00 |egersrcl|Strn....|
|000051b0| 73 72 63 6c 53 74 72 6e | 00 00 00 41 77 68 69 6c |srclStrn|...Awhil|
|000051c0| 65 20 61 43 6f 6d 70 75 | 74 65 72 50 6c 61 79 28 |e aCompu|terPlay(|
|000051d0| 69 29 20 3c 3e 20 6e 69 | 6c 20 61 6e 64 20 61 43 |i) <> ni|l and aC|
|000051e0| 6f 6d 70 75 74 65 72 50 | 6c 61 79 28 69 29 2e 67 |omputerP|lay(i).g|
|000051f0| 65 74 43 61 72 64 20 3c | 3e 20 6e 69 6c 00 00 00 |etCard <|> nil...|
|00005200| 73 72 63 6c 53 74 72 6e | 00 00 00 21 61 6e 69 6d |srclStrn|...!anim|
|00005210| 61 74 65 28 61 43 6f 6d | 70 75 74 65 72 50 6c 61 |ate(aCom|puterPla|
|00005220| 79 28 69 29 2c 64 69 73 | 63 61 72 64 29 00 00 00 |y(i),dis|card)...|
|00005230| 73 72 63 6c 53 74 72 6e | 00 00 00 1c 61 43 6f 6d |srclStrn|....aCom|
|00005240| 70 75 74 65 72 50 6c 61 | 79 28 69 29 2e 73 65 74 |puterPla|y(i).set|
|00005250| 43 61 72 64 20 6e 69 6c | 73 72 63 6c 53 74 72 6e |Card nil|srclStrn|
|00005260| 00 00 00 1f 61 43 6f 6d | 70 75 74 65 72 50 6c 61 |....aCom|puterPla|
|00005270| 79 28 69 29 2e 68 69 64 | 64 65 6e 20 3d 20 66 61 |y(i).hid|den = fa|
|00005280| 6c 73 65 00 73 72 63 6c | 53 74 72 6e 00 00 00 18 |lse.srcl|Strn....|
|00005290| 61 43 6f 6d 70 75 74 65 | 72 50 6c 61 79 28 69 29 |aCompute|rPlay(i)|
|000052a0| 2e 72 65 66 72 65 73 68 | 73 72 63 6c 53 74 72 6e |.refresh|srclStrn|
|000052b0| 00 00 00 09 69 20 3d 20 | 69 20 2b 20 31 00 00 00 |....i = |i + 1...|
|000052c0| 73 72 63 6c 53 74 72 6e | 00 00 00 04 77 65 6e 64 |srclStrn|....wend|
|000052d0| 73 72 63 6c 53 74 72 6e | 00 00 00 05 69 20 3d 20 |srclStrn|....i = |
|000052e0| 30 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 3b |0...srcl|Strn...;|
|000052f0| 77 68 69 6c 65 20 61 48 | 75 6d 61 6e 50 6c 61 79 |while aH|umanPlay|
|00005300| 28 69 29 20 3c 3e 20 6e | 69 6c 20 61 6e 64 20 61 |(i) <> n|il and a|
|00005310| 48 75 6d 61 6e 50 6c 61 | 79 28 69 29 2e 67 65 74 |HumanPla|y(i).get|
|00005320| 43 61 72 64 20 3c 3e 20 | 6e 69 6c 00 73 72 63 6c |Card <> |nil.srcl|
|00005330| 53 74 72 6e 00 00 00 1e | 61 6e 69 6d 61 74 65 28 |Strn....|animate(|
|00005340| 61 48 75 6d 61 6e 50 6c | 61 79 28 69 29 2c 64 69 |aHumanPl|ay(i),di|
|00005350| 73 63 61 72 64 29 00 00 | 73 72 63 6c 53 74 72 6e |scard)..|srclStrn|
|00005360| 00 00 00 19 61 48 75 6d | 61 6e 50 6c 61 79 28 69 |....aHum|anPlay(i|
|00005370| 29 2e 73 65 74 43 61 72 | 64 20 6e 69 6c 00 00 00 |).setCar|d nil...|
|00005380| 73 72 63 6c 53 74 72 6e | 00 00 00 1c 61 48 75 6d |srclStrn|....aHum|
|00005390| 61 6e 50 6c 61 79 28 69 | 29 2e 68 69 64 64 65 6e |anPlay(i|).hidden|
|000053a0| 20 3d 20 66 61 6c 73 65 | 73 72 63 6c 53 74 72 6e | = false|srclStrn|
|000053b0| 00 00 00 15 61 48 75 6d | 61 6e 50 6c 61 79 28 69 |....aHum|anPlay(i|
|000053c0| 29 2e 72 65 66 72 65 73 | 68 00 00 00 73 72 63 6c |).refres|h...srcl|
|000053d0| 53 74 72 6e 00 00 00 09 | 69 20 3d 20 69 20 2b 20 |Strn....|i = i + |
|000053e0| 31 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 04 |1...srcl|Strn....|
|000053f0| 77 65 6e 64 73 72 63 6c | 53 74 72 6e 00 00 00 00 |wendsrcl|Strn....|
|00005400| 73 72 63 6c 53 74 72 6e | 00 00 00 1d 64 6f 6e 65 |srclStrn|....done|
|00005410| 61 74 74 61 63 6b 69 6e | 67 2e 65 6e 61 62 6c 65 |attackin|g.enable|
|00005420| 64 20 3d 20 66 61 6c 73 | 65 00 00 00 73 72 63 6c |d = fals|e...srcl|
|00005430| 53 74 72 6e 00 00 00 1d | 64 6f 6e 65 64 65 66 65 |Strn....|donedefe|
|00005440| 6e 64 69 6e 67 2e 65 6e | 61 62 6c 65 64 20 3d 20 |nding.en|abled = |
|00005450| 66 61 6c 73 65 00 00 00 | 73 72 63 6c 53 74 72 6e |false...|srclStrn|
|00005460| 00 00 00 07 45 6e 64 20 | 53 75 62 00 45 6e 64 47 |....End |Sub.EndG|
|00005470| 49 6e 74 20 00 00 00 40 | 45 6e 64 47 49 6e 74 20 |Int ...@|EndGInt |
|00005480| 00 00 00 3f 4d 65 74 68 | 47 72 75 70 00 00 04 e0 |...?Meth|Grup....|
|00005490| 00 00 00 41 6e 61 6d 65 | 53 74 72 6e 00 00 00 0c |...Aname|Strn....|
|000054a0| 68 75 6d 61 6e 53 77 61 | 6c 6c 6f 77 70 61 72 6d |humanSwa|llowparm|
|000054b0| 53 74 72 6e 00 00 00 00 | 72 73 6c 74 53 74 72 6e |Strn....|rsltStrn|
|000054c0| 00 00 00 00 66 6c 61 67 | 49 6e 74 20 00 00 00 00 |....flag|Int ....|
|000054d0| 73 6f 72 63 47 72 75 70 | 00 00 04 88 00 00 00 42 |sorcGrup|.......B|
|000054e0| 73 74 73 72 49 6e 74 20 | 00 00 00 17 73 74 73 63 |stsrInt |....stsc|
|000054f0| 49 6e 74 20 00 00 00 16 | 6e 64 73 72 49 6e 74 20 |Int ....|ndsrInt |
|00005500| 00 00 00 17 6e 64 73 63 | 49 6e 74 20 00 00 00 19 |....ndsc|Int ....|
|00005510| 73 72 63 6c 53 74 72 6e | 00 00 00 12 53 75 62 20 |srclStrn|....Sub |
|00005520| 68 75 6d 61 6e 53 77 61 | 6c 6c 6f 77 28 29 00 00 |humanSwa|llow()..|
|00005530| 73 72 63 6c 53 74 72 6e | 00 00 00 18 64 69 6d 20 |srclStrn|....dim |
|00005540| 69 2c 6a 2c 64 75 6d 6d | 79 20 61 73 20 69 6e 74 |i,j,dumm|y as int|
|00005550| 65 67 65 72 73 72 63 6c | 53 74 72 6e 00 00 00 00 |egersrcl|Strn....|
|00005560| 73 72 63 6c 53 74 72 6e | 00 00 00 41 77 68 69 6c |srclStrn|...Awhil|
|00005570| 65 20 61 43 6f 6d 70 75 | 74 65 72 50 6c 61 79 28 |e aCompu|terPlay(|
|00005580| 69 29 20 3c 3e 20 6e 69 | 6c 20 61 6e 64 20 61 43 |i) <> ni|l and aC|
|00005590| 6f 6d 70 75 74 65 72 50 | 6c 61 79 28 69 29 2e 67 |omputerP|lay(i).g|
|000055a0| 65 74 43 61 72 64 20 3c | 3e 20 6e 69 6c 00 00 00 |etCard <|> nil...|
|000055b0| 73 72 63 6c 53 74 72 6e | 00 00 00 2b 64 75 6d 6d |srclStrn|...+dumm|
|000055c0| 79 20 3d 20 67 69 76 65 | 48 75 6d 61 6e 28 61 43 |y = give|Human(aC|
|000055d0| 6f 6d 70 75 74 65 72 50 | 6c 61 79 28 69 29 2e 67 |omputerP|lay(i).g|
|000055e0| 65 74 43 61 72 64 29 00 | 73 72 63 6c 53 74 72 6e |etCard).|srclStrn|
|000055f0| 00 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 2c |....srcl|Strn...,|
|00005600| 61 6e 69 6d 61 74 65 28 | 61 43 6f 6d 70 75 74 65 |animate(|aCompute|
|00005610| 72 50 6c 61 79 28 69 29 | 2c 20 61 48 75 6d 61 6e |rPlay(i)|, aHuman|
|00005620| 43 61 72 64 28 64 75 6d | 6d 79 29 29 73 72 63 6c |Card(dum|my))srcl|
|00005630| 53 74 72 6e 00 00 00 00 | 73 72 63 6c 53 74 72 6e |Strn....|srclStrn|
|00005640| 00 00 00 1c 61 43 6f 6d | 70 75 74 65 72 50 6c 61 |....aCom|puterPla|
|00005650| 79 28 69 29 2e 73 65 74 | 43 61 72 64 20 6e 69 6c |y(i).set|Card nil|
|00005660| 73 72 63 6c 53 74 72 6e | 00 00 00 1f 61 43 6f 6d |srclStrn|....aCom|
|00005670| 70 75 74 65 72 50 6c 61 | 79 28 69 29 2e 68 69 64 |puterPla|y(i).hid|
|00005680| 64 65 6e 20 3d 20 66 61 | 6c 73 65 00 73 72 63 6c |den = fa|lse.srcl|
|00005690| 53 74 72 6e 00 00 00 18 | 61 43 6f 6d 70 75 74 65 |Strn....|aCompute|
|000056a0| 72 50 6c 61 79 28 69 29 | 2e 72 65 66 72 65 73 68 |rPlay(i)|.refresh|
|000056b0| 73 72 63 6c 53 74 72 6e | 00 00 00 19 61 48 75 6d |srclStrn|....aHum|
|000056c0| 61 6e 43 61 72 64 28 64 | 75 6d 6d 79 29 2e 72 65 |anCard(d|ummy).re|
|000056d0| 66 72 65 73 68 00 00 00 | 73 72 63 6c 53 74 72 6e |fresh...|srclStrn|
|000056e0| 00 00 00 1d 6e 6f 74 65 | 50 6c 61 79 65 72 31 2e |....note|Player1.|
|000056f0| 70 6c 61 79 4e 6f 74 65 | 20 69 2b 36 30 2c 20 36 |playNote| i+60, 6|
|00005700| 30 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 05 |0...srcl|Strn....|
|00005710| 64 65 6c 61 79 00 00 00 | 73 72 63 6c 53 74 72 6e |delay...|srclStrn|
|00005720| 00 00 00 09 69 20 3d 20 | 69 20 2b 20 31 00 00 00 |....i = |i + 1...|
|00005730| 73 72 63 6c 53 74 72 6e | 00 00 00 04 77 65 6e 64 |srclStrn|....wend|
|00005740| 73 72 63 6c 53 74 72 6e | 00 00 00 05 6a 20 3d 20 |srclStrn|....j = |
|00005750| 69 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 05 |i...srcl|Strn....|
|00005760| 69 20 3d 20 30 00 00 00 | 73 72 63 6c 53 74 72 6e |i = 0...|srclStrn|
|00005770| 00 00 00 3b 77 68 69 6c | 65 20 61 48 75 6d 61 6e |...;whil|e aHuman|
|00005780| 50 6c 61 79 28 69 29 20 | 3c 3e 20 6e 69 6c 20 61 |Play(i) |<> nil a|
|00005790| 6e 64 20 61 48 75 6d 61 | 6e 50 6c 61 79 28 69 29 |nd aHuma|nPlay(i)|
|000057a0| 2e 67 65 74 43 61 72 64 | 20 3c 3e 20 6e 69 6c 00 |.getCard| <> nil.|
|000057b0| 73 72 63 6c 53 74 72 6e | 00 00 00 28 64 75 6d 6d |srclStrn|...(dumm|
|000057c0| 79 20 3d 20 67 69 76 65 | 48 75 6d 61 6e 28 61 48 |y = give|Human(aH|
|000057d0| 75 6d 61 6e 50 6c 61 79 | 28 69 29 2e 67 65 74 43 |umanPlay|(i).getC|
|000057e0| 61 72 64 29 73 72 63 6c | 53 74 72 6e 00 00 00 00 |ard)srcl|Strn....|
|000057f0| 73 72 63 6c 53 74 72 6e | 00 00 00 29 61 6e 69 6d |srclStrn|...)anim|
|00005800| 61 74 65 28 61 48 75 6d | 61 6e 50 6c 61 79 28 69 |ate(aHum|anPlay(i|
|00005810| 29 2c 20 61 48 75 6d 61 | 6e 43 61 72 64 28 64 75 |), aHuma|nCard(du|
|00005820| 6d 6d 79 29 29 00 00 00 | 73 72 63 6c 53 74 72 6e |mmy))...|srclStrn|
|00005830| 00 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 19 |....srcl|Strn....|
|00005840| 61 48 75 6d 61 6e 50 6c | 61 79 28 69 29 2e 73 65 |aHumanPl|ay(i).se|
|00005850| 74 43 61 72 64 20 6e 69 | 6c 00 00 00 73 72 63 6c |tCard ni|l...srcl|
|00005860| 53 74 72 6e 00 00 00 1c | 61 48 75 6d 61 6e 50 6c |Strn....|aHumanPl|
|00005870| 61 79 28 69 29 2e 68 69 | 64 64 65 6e 20 3d 20 66 |ay(i).hi|dden = f|
|00005880| 61 6c 73 65 73 72 63 6c | 53 74 72 6e 00 00 00 15 |alsesrcl|Strn....|
|00005890| 61 48 75 6d 61 6e 50 6c | 61 79 28 69 29 2e 72 65 |aHumanPl|ay(i).re|
|000058a0| 66 72 65 73 68 00 00 00 | 73 72 63 6c 53 74 72 6e |fresh...|srclStrn|
|000058b0| 00 00 00 19 61 48 75 6d | 61 6e 43 61 72 64 28 64 |....aHum|anCard(d|
|000058c0| 75 6d 6d 79 29 2e 72 65 | 66 72 65 73 68 00 00 00 |ummy).re|fresh...|
|000058d0| 73 72 63 6c 53 74 72 6e | 00 00 00 1d 6e 6f 74 65 |srclStrn|....note|
|000058e0| 50 6c 61 79 65 72 31 2e | 70 6c 61 79 4e 6f 74 65 |Player1.|playNote|
|000058f0| 20 6a 2b 36 30 2c 20 36 | 30 00 00 00 73 72 63 6c | j+60, 6|0...srcl|
|00005900| 53 74 72 6e 00 00 00 05 | 64 65 6c 61 79 00 00 00 |Strn....|delay...|
|00005910| 73 72 63 6c 53 74 72 6e | 00 00 00 09 69 20 3d 20 |srclStrn|....i = |
|00005920| 69 20 2b 20 31 00 00 00 | 73 72 63 6c 53 74 72 6e |i + 1...|srclStrn|
|00005930| 00 00 00 09 6a 20 3d 20 | 6a 20 2b 20 31 00 00 00 |....j = |j + 1...|
|00005940| 73 72 63 6c 53 74 72 6e | 00 00 00 04 77 65 6e 64 |srclStrn|....wend|
|00005950| 73 72 63 6c 53 74 72 6e | 00 00 00 07 45 6e 64 20 |srclStrn|....End |
|00005960| 53 75 62 00 45 6e 64 47 | 49 6e 74 20 00 00 00 42 |Sub.EndG|Int ...B|
|00005970| 45 6e 64 47 49 6e 74 20 | 00 00 00 41 4d 65 74 68 |EndGInt |...AMeth|
|00005980| 47 72 75 70 00 00 01 18 | 00 00 00 43 6e 61 6d 65 |Grup....|...Cname|
|00005990| 53 74 72 6e 00 00 00 05 | 64 65 6c 61 79 00 00 00 |Strn....|delay...|
|000059a0| 70 61 72 6d 53 74 72 6e | 00 00 00 00 72 73 6c 74 |parmStrn|....rslt|
|000059b0| 53 74 72 6e 00 00 00 00 | 66 6c 61 67 49 6e 74 20 |Strn....|flagInt |
|000059c0| 00 00 00 00 73 6f 72 63 | 47 72 75 70 00 00 00 c4 |....sorc|Grup....|
|000059d0| 00 00 00 44 73 74 73 72 | 49 6e 74 20 00 00 00 04 |...Dstsr|Int ....|
|000059e0| 73 74 73 63 49 6e 74 20 | 00 00 00 04 6e 64 73 72 |stscInt |....ndsr|
|000059f0| 49 6e 74 20 00 00 00 04 | 6e 64 73 63 49 6e 74 20 |Int ....|ndscInt |
|00005a00| 00 00 00 04 73 72 63 6c | 53 74 72 6e 00 00 00 0b |....srcl|Strn....|
|00005a10| 53 75 62 20 64 65 6c 61 | 79 28 29 00 73 72 63 6c |Sub dela|y().srcl|
|00005a20| 53 74 72 6e 00 00 00 10 | 64 69 6d 20 74 20 61 73 |Strn....|dim t as|
|00005a30| 20 69 6e 74 65 67 65 72 | 73 72 63 6c 53 74 72 6e | integer|srclStrn|
|00005a40| 00 00 00 09 74 20 3d 20 | 74 69 63 6b 73 00 00 00 |....t = |ticks...|
|00005a50| 73 72 63 6c 53 74 72 6e | 00 00 00 14 77 68 69 6c |srclStrn|....whil|
|00005a60| 65 20 74 69 63 6b 73 20 | 2d 20 74 20 3c 20 33 30 |e ticks |- t < 30|
|00005a70| 73 72 63 6c 53 74 72 6e | 00 00 00 04 77 65 6e 64 |srclStrn|....wend|
|00005a80| 73 72 63 6c 53 74 72 6e | 00 00 00 07 45 6e 64 20 |srclStrn|....End |
|00005a90| 53 75 62 00 45 6e 64 47 | 49 6e 74 20 00 00 00 44 |Sub.EndG|Int ...D|
|00005aa0| 45 6e 64 47 49 6e 74 20 | 00 00 00 43 4d 65 74 68 |EndGInt |...CMeth|
|00005ab0| 47 72 75 70 00 00 00 fc | 00 00 00 45 6e 61 6d 65 |Grup....|...Ename|
|00005ac0| 53 74 72 6e 00 00 00 03 | 73 61 79 00 70 61 72 6d |Strn....|say.parm|
|00005ad0| 53 74 72 6e 00 00 00 0b | 73 20 61 73 20 73 74 72 |Strn....|s as str|
|00005ae0| 69 6e 67 00 72 73 6c 74 | 53 74 72 6e 00 00 00 00 |ing.rslt|Strn....|
|00005af0| 66 6c 61 67 49 6e 74 20 | 00 00 00 00 73 6f 72 63 |flagInt |....sorc|
|00005b00| 47 72 75 70 00 00 00 a0 | 00 00 00 46 73 74 73 72 |Grup....|...Fstsr|
|00005b10| 49 6e 74 20 00 00 00 02 | 73 74 73 63 49 6e 74 20 |Int ....|stscInt |
|00005b20| 00 00 00 0f 6e 64 73 72 | 49 6e 74 20 00 00 00 02 |....ndsr|Int ....|
|00005b30| 6e 64 73 63 49 6e 74 20 | 00 00 00 0f 73 72 63 6c |ndscInt |....srcl|
|00005b40| 53 74 72 6e 00 00 00 14 | 53 75 62 20 73 61 79 28 |Strn....|Sub say(|
|00005b50| 73 20 61 73 20 73 74 72 | 69 6e 67 29 73 72 63 6c |s as str|ing)srcl|
|00005b60| 53 74 72 6e 00 00 00 10 | 6d 65 73 73 61 67 65 2e |Strn....|message.|
|00005b70| 74 65 78 74 20 3d 20 73 | 73 72 63 6c 53 74 72 6e |text = s|srclStrn|
|00005b80| 00 00 00 0f 6d 65 73 73 | 61 67 65 2e 72 65 66 72 |....mess|age.refr|
|00005b90| 65 73 68 00 73 72 63 6c | 53 74 72 6e 00 00 00 07 |esh.srcl|Strn....|
|00005ba0| 45 6e 64 20 53 75 62 00 | 45 6e 64 47 49 6e 74 20 |End Sub.|EndGInt |
|00005bb0| 00 00 00 46 45 6e 64 47 | 49 6e 74 20 00 00 00 45 |...FEndG|Int ...E|
|00005bc0| 4d 65 74 68 47 72 75 70 | 00 00 03 74 00 00 00 47 |MethGrup|...t...G|
|00005bd0| 6e 61 6d 65 53 74 72 6e | 00 00 00 0a 69 73 47 61 |nameStrn|....isGa|
|00005be0| 6d 65 4f 76 65 72 00 00 | 70 61 72 6d 53 74 72 6e |meOver..|parmStrn|
|00005bf0| 00 00 00 00 72 73 6c 74 | 53 74 72 6e 00 00 00 07 |....rslt|Strn....|
|00005c00| 62 6f 6f 6c 65 61 6e 00 | 66 6c 61 67 49 6e 74 20 |boolean.|flagInt |
|00005c10| 00 00 00 00 73 6f 72 63 | 47 72 75 70 00 00 03 14 |....sorc|Grup....|
|00005c20| 00 00 00 48 73 74 73 72 | 49 6e 74 20 00 00 00 09 |...Hstsr|Int ....|
|00005c30| 73 74 73 63 49 6e 74 20 | 00 00 00 1b 6e 64 73 72 |stscInt |....ndsr|
|00005c40| 49 6e 74 20 00 00 00 09 | 6e 64 73 63 49 6e 74 20 |Int ....|ndscInt |
|00005c50| 00 00 00 1e 73 72 63 6c | 53 74 72 6e 00 00 00 20 |....srcl|Strn... |
|00005c60| 46 75 6e 63 74 69 6f 6e | 20 69 73 47 61 6d 65 4f |Function| isGameO|
|00005c70| 76 65 72 28 29 20 41 73 | 20 62 6f 6f 6c 65 61 6e |ver() As| boolean|
|00005c80| 73 72 63 6c 53 74 72 6e | 00 00 00 3e 69 66 20 75 |srclStrn|...>if u|
|00005c90| 62 6f 75 6e 64 28 63 6f | 6d 70 75 74 65 72 29 20 |bound(co|mputer) |
|00005ca0| 3c 3d 20 30 20 61 6e 64 | 20 75 62 6f 75 6e 64 28 |<= 0 and| ubound(|
|00005cb0| 74 68 65 64 65 63 6b 2e | 74 68 65 44 65 63 6b 29 |thedeck.|theDeck)|
|00005cc0| 20 3c 3d 20 30 20 74 68 | 65 6e 00 00 73 72 63 6c | <= 0 th|en..srcl|
|00005cd0| 53 74 72 6e 00 00 00 36 | 73 61 79 20 22 54 68 65 |Strn...6|say "The|
|00005ce0| 20 63 6f 6d 70 75 74 65 | 72 20 69 73 20 6f 75 74 | compute|r is out|
|00005cf0| 20 6f 66 20 63 61 72 64 | 73 2e 20 54 68 65 20 63 | of card|s. The c|
|00005d00| 6f 6d 70 75 74 65 72 20 | 77 69 6e 73 21 22 00 00 |omputer |wins!"..|
|00005d10| 73 72 63 6c 53 74 72 6e | 00 00 00 10 64 75 6d 64 |srclStrn|....dumd|
|00005d20| 61 64 75 6d 64 75 6d 2e | 70 6c 61 79 73 72 63 6c |adumdum.|playsrcl|
|00005d30| 53 74 72 6e 00 00 00 0f | 67 61 6d 65 6f 76 65 72 |Strn....|gameover|
|00005d40| 20 3d 20 74 72 75 65 00 | 73 72 63 6c 53 74 72 6e | = true.|srclStrn|
|00005d50| 00 00 00 1d 64 6f 6e 65 | 61 74 74 61 63 6b 69 6e |....done|attackin|
|00005d60| 67 2e 65 6e 61 62 6c 65 | 64 20 3d 20 66 61 6c 73 |g.enable|d = fals|
|00005d70| 65 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 1d |e...srcl|Strn....|
|00005d80| 64 6f 6e 65 64 65 66 65 | 6e 64 69 6e 67 2e 65 6e |donedefe|nding.en|
|00005d90| 61 62 6c 65 64 20 3d 20 | 66 61 6c 73 65 00 00 00 |abled = |false...|
|00005da0| 73 72 63 6c 53 74 72 6e | 00 00 00 0b 72 65 74 75 |srclStrn|....retu|
|00005db0| 72 6e 20 74 72 75 65 00 | 73 72 63 6c 53 74 72 6e |rn true.|srclStrn|
|00005dc0| 00 00 00 03 65 6e 64 00 | 73 72 63 6c 53 74 72 6e |....end.|srclStrn|
|00005dd0| 00 00 00 44 69 66 20 61 | 48 75 6d 61 6e 43 61 72 |...Dif a|HumanCar|
|00005de0| 64 28 30 29 2e 67 65 74 | 43 61 72 64 20 3d 20 6e |d(0).get|Card = n|
|00005df0| 69 6c 20 61 6e 64 20 75 | 62 6f 75 6e 64 28 74 68 |il and u|bound(th|
|00005e00| 65 64 65 63 6b 2e 74 68 | 65 44 65 63 6b 29 20 3c |edeck.th|eDeck) <|
|00005e10| 3d 20 30 20 74 68 65 6e | 73 72 63 6c 53 74 72 6e |= 0 then|srclStrn|
|00005e20| 00 00 00 2c 73 61 79 20 | 22 59 6f 75 27 76 65 20 |...,say |"You've |
|00005e30| 70 6c 61 79 65 64 20 79 | 6f 75 72 20 6c 61 73 74 |played y|our last|
|00005e40| 20 63 61 72 64 2e 20 59 | 6f 75 20 77 69 6e 21 22 | card. Y|ou win!"|
|00005e50| 73 72 63 6c 53 74 72 6e | 00 00 00 0a 68 61 6c 6c |srclStrn|....hall|
|00005e60| 65 2e 70 6c 61 79 00 00 | 73 72 63 6c 53 74 72 6e |e.play..|srclStrn|
|00005e70| 00 00 00 0f 67 61 6d 65 | 6f 76 65 72 20 3d 20 74 |....game|over = t|
|00005e80| 72 75 65 00 73 72 63 6c | 53 74 72 6e 00 00 00 1d |rue.srcl|Strn....|
|00005e90| 64 6f 6e 65 61 74 74 61 | 63 6b 69 6e 67 2e 65 6e |doneatta|cking.en|
|00005ea0| 61 62 6c 65 64 20 3d 20 | 66 61 6c 73 65 00 00 00 |abled = |false...|
|00005eb0| 73 72 63 6c 53 74 72 6e | 00 00 00 1d 64 6f 6e 65 |srclStrn|....done|
|00005ec0| 64 65 66 65 6e 64 69 6e | 67 2e 65 6e 61 62 6c 65 |defendin|g.enable|
|00005ed0| 64 20 3d 20 66 61 6c 73 | 65 00 00 00 73 72 63 6c |d = fals|e...srcl|
|00005ee0| 53 74 72 6e 00 00 00 0b | 72 65 74 75 72 6e 20 74 |Strn....|return t|
|00005ef0| 72 75 65 00 73 72 63 6c | 53 74 72 6e 00 00 00 03 |rue.srcl|Strn....|
|00005f00| 65 6e 64 00 73 72 63 6c | 53 74 72 6e 00 00 00 0c |end.srcl|Strn....|
|00005f10| 72 65 74 75 72 6e 20 66 | 61 6c 73 65 73 72 63 6c |return f|alsesrcl|
|00005f20| 53 74 72 6e 00 00 00 0c | 45 6e 64 20 46 75 6e 63 |Strn....|End Func|
|00005f30| 74 69 6f 6e 45 6e 64 47 | 49 6e 74 20 00 00 00 48 |tionEndG|Int ...H|
|00005f40| 45 6e 64 47 49 6e 74 20 | 00 00 00 47 4d 65 74 68 |EndGInt |...GMeth|
|00005f50| 47 72 75 70 00 00 02 30 | 00 00 00 49 6e 61 6d 65 |Grup...0|...Iname|
|00005f60| 53 74 72 6e 00 00 00 0d | 66 75 6c 6c 79 44 65 66 |Strn....|fullyDef|
|00005f70| 65 6e 64 65 64 00 00 00 | 70 61 72 6d 53 74 72 6e |ended...|parmStrn|
|00005f80| 00 00 00 00 72 73 6c 74 | 53 74 72 6e 00 00 00 07 |....rslt|Strn....|
|00005f90| 62 6f 6f 6c 65 61 6e 00 | 66 6c 61 67 49 6e 74 20 |boolean.|flagInt |
|00005fa0| 00 00 00 00 73 6f 72 63 | 47 72 75 70 00 00 01 cc |....sorc|Grup....|
|00005fb0| 00 00 00 4a 73 74 73 72 | 49 6e 74 20 00 00 00 03 |...Jstsr|Int ....|
|00005fc0| 73 74 73 63 49 6e 74 20 | 00 00 00 3e 6e 64 73 72 |stscInt |...>ndsr|
|00005fd0| 49 6e 74 20 00 00 00 03 | 6e 64 73 63 49 6e 74 20 |Int ....|ndscInt |
|00005fe0| 00 00 00 41 73 72 63 6c | 53 74 72 6e 00 00 00 23 |...Asrcl|Strn...#|
|00005ff0| 46 75 6e 63 74 69 6f 6e | 20 66 75 6c 6c 79 44 65 |Function| fullyDe|
|00006000| 66 65 6e 64 65 64 28 29 | 20 41 73 20 62 6f 6f 6c |fended()| As bool|
|00006010| 65 61 6e 00 73 72 63 6c | 53 74 72 6e 00 00 00 31 |ean.srcl|Strn...1|
|00006020| 2f 2f 20 63 6f 75 6e 74 | 20 70 6c 61 79 65 64 20 |// count| played |
|00006030| 63 61 72 64 73 2c 20 73 | 65 65 20 69 66 20 77 65 |cards, s|ee if we|
|00006040| 27 76 65 20 72 65 61 63 | 68 65 64 20 6c 69 6d 69 |'ve reac|hed limi|
|00006050| 74 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 10 |t...srcl|Strn....|
|00006060| 64 69 6d 20 6a 20 61 73 | 20 69 6e 74 65 67 65 72 |dim j as| integer|
|00006070| 73 72 63 6c 53 74 72 6e | 00 00 00 41 77 68 69 6c |srclStrn|...Awhil|
|00006080| 65 20 61 43 6f 6d 70 75 | 74 65 72 50 6c 61 79 28 |e aCompu|terPlay(|
|00006090| 6a 29 20 3c 3e 20 6e 69 | 6c 20 61 6e 64 20 61 43 |j) <> ni|l and aC|
|000060a0| 6f 6d 70 75 74 65 72 50 | 6c 61 79 28 6a 29 2e 67 |omputerP|lay(j).g|
|000060b0| 65 74 43 61 72 64 20 3c | 3e 20 6e 69 6c 00 00 00 |etCard <|> nil...|
|000060c0| 73 72 63 6c 53 74 72 6e | 00 00 00 09 6a 20 3d 20 |srclStrn|....j = |
|000060d0| 6a 20 2b 20 31 00 00 00 | 73 72 63 6c 53 74 72 6e |j + 1...|srclStrn|
|000060e0| 00 00 00 04 77 65 6e 64 | 73 72 63 6c 53 74 72 6e |....wend|srclStrn|
|000060f0| 00 00 00 20 69 66 20 6a | 20 3e 3d 20 64 65 66 65 |... if j| >= defe|
|00006100| 6e 64 65 72 53 74 61 72 | 74 65 64 57 69 74 68 20 |nderStar|tedWith |
|00006110| 74 68 65 6e 73 72 63 6c | 53 74 72 6e 00 00 00 0b |thensrcl|Strn....|
|00006120| 72 65 74 75 72 6e 20 74 | 72 75 65 00 73 72 63 6c |return t|rue.srcl|
|00006130| 53 74 72 6e 00 00 00 04 | 65 6c 73 65 73 72 63 6c |Strn....|elsesrcl|
|00006140| 53 74 72 6e 00 00 00 0c | 72 65 74 75 72 6e 20 66 |Strn....|return f|
|00006150| 61 6c 73 65 73 72 63 6c | 53 74 72 6e 00 00 00 03 |alsesrcl|Strn....|
|00006160| 65 6e 64 00 73 72 63 6c | 53 74 72 6e 00 00 00 0c |end.srcl|Strn....|
|00006170| 45 6e 64 20 46 75 6e 63 | 74 69 6f 6e 45 6e 64 47 |End Func|tionEndG|
|00006180| 49 6e 74 20 00 00 00 4a | 45 6e 64 47 49 6e 74 20 |Int ...J|EndGInt |
|00006190| 00 00 00 49 4d 65 74 68 | 47 72 75 70 00 00 02 d8 |...IMeth|Grup....|
|000061a0| 00 00 00 4b 6e 61 6d 65 | 53 74 72 6e 00 00 00 0c |...Kname|Strn....|
|000061b0| 6f 72 64 65 72 63 68 61 | 6e 67 65 64 70 61 72 6d |ordercha|ngedparm|
|000061c0| 53 74 72 6e 00 00 00 00 | 72 73 6c 74 53 74 72 6e |Strn....|rsltStrn|
|000061d0| 00 00 00 00 66 6c 61 67 | 49 6e 74 20 00 00 00 00 |....flag|Int ....|
|000061e0| 73 6f 72 63 47 72 75 70 | 00 00 02 80 00 00 00 4c |sorcGrup|.......L|
|000061f0| 73 74 73 72 49 6e 74 20 | 00 00 00 08 73 74 73 63 |stsrInt |....stsc|
|00006200| 49 6e 74 20 00 00 00 16 | 6e 64 73 72 49 6e 74 20 |Int ....|ndsrInt |
|00006210| 00 00 00 08 6e 64 73 63 | 49 6e 74 20 00 00 00 19 |....ndsc|Int ....|
|00006220| 73 72 63 6c 53 74 72 6e | 00 00 00 12 53 75 62 20 |srclStrn|....Sub |
|00006230| 6f 72 64 65 72 63 68 61 | 6e 67 65 64 28 29 00 00 |ordercha|nged()..|
|00006240| 73 72 63 6c 53 74 72 6e | 00 00 00 2d 2f 2f 20 67 |srclStrn|...-// g|
|00006250| 61 74 68 65 72 20 75 70 | 20 68 75 6d 61 6e 27 73 |ather up| human's|
|00006260| 20 63 61 72 64 73 20 61 | 6e 64 20 67 69 76 65 20 | cards a|nd give |
|00006270| 74 68 65 6d 20 62 61 63 | 6b 00 00 00 73 72 63 6c |them bac|k...srcl|
|00006280| 53 74 72 6e 00 00 00 3a | 2f 2f 20 67 69 76 65 48 |Strn...:|// giveH|
|00006290| 75 6d 61 6e 20 77 69 6c | 6c 20 74 61 6b 65 20 63 |uman wil|l take c|
|000062a0| 61 72 65 20 6f 66 20 67 | 65 74 74 69 6e 67 20 74 |are of g|etting t|
|000062b0| 68 65 20 6e 65 77 20 6f | 72 64 65 72 20 72 69 67 |he new o|rder rig|
|000062c0| 68 74 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 00 |ht..srcl|Strn....|
|000062d0| 73 72 63 6c 53 74 72 6e | 00 00 00 16 64 69 6d 20 |srclStrn|....dim |
|000062e0| 69 2c 64 75 6d 6d 79 20 | 61 73 20 69 6e 74 65 67 |i,dummy |as integ|
|000062f0| 65 72 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 10 |er..srcl|Strn....|
|00006300| 64 69 6d 20 63 28 30 29 | 20 61 73 20 63 61 72 64 |dim c(0)| as card|
|00006310| 73 72 63 6c 53 74 72 6e | 00 00 00 3b 77 68 69 6c |srclStrn|...;whil|
|00006320| 65 20 61 48 75 6d 61 6e | 43 61 72 64 28 69 29 20 |e aHuman|Card(i) |
|00006330| 3c 3e 20 6e 69 6c 20 61 | 6e 64 20 61 48 75 6d 61 |<> nil a|nd aHuma|
|00006340| 6e 43 61 72 64 28 69 29 | 2e 67 65 74 43 61 72 64 |nCard(i)|.getCard|
|00006350| 20 3c 3e 20 6e 69 6c 00 | 73 72 63 6c 53 74 72 6e | <> nil.|srclStrn|
|00006360| 00 00 00 1e 63 2e 61 70 | 70 65 6e 64 20 61 48 75 |....c.ap|pend aHu|
|00006370| 6d 61 6e 43 61 72 64 28 | 69 29 2e 67 65 74 43 61 |manCard(|i).getCa|
|00006380| 72 64 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 19 |rd..srcl|Strn....|
|00006390| 61 48 75 6d 61 6e 43 61 | 72 64 28 69 29 2e 73 65 |aHumanCa|rd(i).se|
|000063a0| 74 43 61 72 64 20 6e 69 | 6c 00 00 00 73 72 63 6c |tCard ni|l...srcl|
|000063b0| 53 74 72 6e 00 00 00 09 | 69 20 3d 20 69 20 2b 20 |Strn....|i = i + |
|000063c0| 31 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 04 |1...srcl|Strn....|
|000063d0| 77 65 6e 64 73 72 63 6c | 53 74 72 6e 00 00 00 1a |wendsrcl|Strn....|
|000063e0| 66 6f 72 20 69 20 3d 20 | 75 62 6f 75 6e 64 28 63 |for i = |ubound(c|
|000063f0| 29 20 64 6f 77 6e 74 6f | 20 31 00 00 73 72 63 6c |) downto| 1..srcl|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.